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APPLE Il 
HANDBUCH 


Die rasche Orientierung für APPLE 
Iiplus, Ne, Ic 


Schnelle Antwort auf Alltagsfragen am APPLE II - 
leicht nachzuschlagen, praxisbezogen, für Ilplus, Ile, IIc 
innur l Buch! 

Unterschiede Ilplus/lle, DOS 3.3/ProDOS, E/A-Inter- 
facekarten/Ports, 40/80 Zeichendarstellung, US/DTS- 
Tastatur, 48K/128K Systeme etc. 
Grafik/Soundmöglichkeiten, eine der APPLE-Stär- 
ken, in stark erweiterter Beschreibung. 

BA Kurzführer „Steckkartenerweiterungen“ mit Fotos; 

KEIN PODREAVIOHIEULIOIVEN IK ORDNEN. OO „„Sofortbetrieb von Disketten/Cassettengeräten“; 
„Druckerbetrieb“; „Direktbefehle“; „Iastaturbedienung“ etc. 


Backgroundwissen: BASIC für Beginner/Professionelle; a BASIC-Kombination; MC- 
Entwicklung mit MONITOR/MINIASSEMBLER; APPLE-PASCAL-BS; 
Disketten/Plattenspeicherung; Dateiformate etc. 

Ausführlicher Anhang zu Editor, Speicherbelegung, Codes des 
APPLESOFT-Interpreters etc. 


DAS APPLE II HANDBUCH für ER ai 
IIplus, Ile, llc, 472 Seiten, Thes-ProselWes l eat 
Softcover, DM 66,- 8000 München 40 


Weiterführende Literatur... 


Ner, 

Reparaturanleitung Computer: Br 

| Apple II, Iplus ee WW Jeder kann programmieren 
| Einzigartige Serviceunterläge für Reparatu- "dr (Daniel Watt) 

ren und Entwicklungsarbeiten am Apple IL |4 a; | Buch des Jahres in den USA. Für die 
Enthält Schaltpläne, Bauteile- und Ver- a Computer APPLE II, C-64, IBM PC, 
gleichstypenliste; Prüfpunkte mit Oszillo- — Ä ATARI bis 520 ST,, TI-99 und Schneider 
grammen der Signalformen, Logiktabellen, ji 1 CPCs, 

Spannungsangaben; schnelle Servicetests; | | 4 Hochwertiges Textbuch für Logo-Kurse 
Anleitung zur systematischen Fehlersuche. Pf für zu Hause und im Lehrbereich. 

In A4-Mappe, DM 29,80 Mi | 384 Seiten, A4, DM 59,- 


SPRACHE 
APPLE II - Bewegte 3D-Graphik Son mean kur | Apple Maschinensprache 


(Phil Cohen) \ Für BASIC-Programmierer der einfachste 
Selbstentworfene Graphiken und Dia- Wen. „| Zugang zur Muttersprache des Apple. Wesent- 
gramme —- animiert oder als Standbilder - = ar=aT #1 lich schnellere Maschinenprogramme, direkte 
eben oder räumlich: alle erforderlichen gr. |. + | | Manipulation des Mikroprozessors 6502 im 
BASIC-Programme mit Erklärung finden Id, Ze] Apple — als Brücke dorthin benötigt dieses 
Sie in diesem Buch. Be DA Buch nur die drei BASIC-Befehle, POKE, 
200 Seiten, Softcover. DM 49.- er CALL, PEEK?D, Inman/K. Inman. DM 49, — 


Erstes deutsches Referenzwerk sämt- 
licher Befehle und Systemroutinen von 
APPLE WORKS-+ APPLEIL lie. Ilc= | — ra — Apple II, Iplus, Ile 
Elektronischer Schreibtischmanager TAN APPLE II PASCAL 475 
Dieses Programmsystem vereinigt die || Betriebssystem, 272 S., DM 49,- Ü 
| Funktion Texterstellung, Datenarchivie- Sprache, 216 S DM 29 M 
rung, Formblattkalkulation, Datenfern- ern? < DM 36- 
übertragung. Das System mit den höch- 
sten Verkaufsziffern. Sämtliche System/ Grundlagenbuch, Bestseller 
euren en Anwendungsfragen in 2 Bänden. Bei- APPLE IIPASCAL 
Kara OR LanGE a. ea spiele aus der Wirtschaft u.v.m. Eine praktische Anleitung, 


ul je 264 Seiten, je DM 49,- | wu 4 544 S,DM59,- 


Noch im Programm: In Vorbereitung: 

6502 - Programmieren in Assembler DM 59,- Macintosh Programmier-Handbuch 
VisiCalc, 50 Programme auf Diskette, DM 79,- ILL ITei Kette) 1 2 Jar) LOW AND BD) BET Rn 
Computer für Kinder, APPLE II, DM 29,80 








Zi 2 





I EN HE u © CE $ 





EEE | VER WE ee 








Die Revolution entläßt ihre Kinder 


Nachdem Anfang dieses Jahres die Firma 
Osborne, die uns den ersten tragbaren 
Mikrocomputer beschert hatte, in den USA 
endgültig Konkurs anmelden mußte, brauen 
sich nunmehr auch über der Firma Commo- 
dore düstere Wolken zusammen, Wie in den 
einschlägigen Wirtschaftsblättern (z.B. aus- 
führlich im „Manager-Magazin“, 3/85) 
nachzulesen war, steht Commodore von 
einem Schuldenberg in Höhe von rund 192 
Millionen Dollar oder umgerechnet fast einer 
halben Milliarde Mark. Wenn der Reinerlös 
(= Umsatz minus Selbstkosten) eines ein- 
zelnen Mikrocomputers im Durchschnitt 
aller Gerätetypen vom C64 bis zur Amiga 
etwa 400 Mark pro Gerät betragen würde, 
so müßten beispielsweise alle Einwohner 
Münchens, vom Baby bis zum Greis, je 
einen Commodore-Mikro erwerben, um den 
Schuldenberg abtragen zu helfen. Eine 
erschreckende Perspektive angesichts der 
allgemeinen Marktflaute in der PC-Branche, 
von der „durch die Bank“ (Äquivokation 
beabsichtigt!) seit Anfang 1985 fast alle Fir- 
men ergriffen worden sind. Nicht ohne 
Grund hat beispielsweise IBM jüngst die 
Preise für ihre PCs in den USA drastisch re- 
duziert, um die Flut der Kombatiblen zu 
bremsen. Und was die Firma Äpple anbe- 
langt, so büßte sie in ihrem Wendejahr 1985 
ca. 50 % ihres Marktanteils ein, der auf- 
grund unabhängiger Marktuntersuchungen 
in Deutschland von 16-18 % auf ca. 8-9 % 
geschrumpft sein soll. Dank der ungewöhn- 
lich hohen Barreserven konnte Apple je- 
doch ohne Hilfe der Banken Umstrukturie- 
rungsmaßnahmen durchführen, während für 
Commodore der finanzielle Spielraum für 
derartige Reorganisationen gegenwärtig 
stark eingeschränkt ist. Wenn man bedenkt, 
daß die Pioniere Apple und Commodore 
einst den Markt beherrschten, so kann man 
sich nicht des Eindrucks erwehren, daß die 
Mikro-Revolution allmählich ihre Kinder ent- 
läßt. 


editorial 


Fast-Writer 


Unser ehemaliger Mitarbeiter Harald Grum- 
ser hat leider das Lager gewechselt und 
wird zukünftig Programme für den Großen 
Bruder HÄL (vgl. „2001") entwickeln. Mit 
seinen superschnellen Programmen, etwa 
„Garbage Collection“ (Heft 1/85) oder 
„Quicksort“ (Heft 1/86), hatte er sich als 
„Fast-Program-Writer“ profiliert, und so ist 
es mir ein besonderes Bedürfnis, als sein 
„Abschiedsgeschenk“ für den Hüthig Soft- 
ware Service den „Fast-Writer“ ankündigen 
zu können, der nach dem Druck des Manu- 
als in etwa acht Wochen erscheinen wird. Es 
handelt sich dabei um ein professionelles 
Textverarbeitungsprogramm für den Apple 
Ile und Ilc (in 40 Z/Z auch für den II+), des- 
sen Verarbeitungsgeschwindigkeit im um- 
gekehrten Verhältnis zu seinem Preis (DM 
98,-) steht, Nach all meinen bisherigen Ver- 
gleichen ist der Fast-Writer mit Abstand das 
schnellste Textverarbeitungsprogramm, das 
jemals für den Apple II entwickelt worden 
ist. Das Wichtigste an einem Schreibpro- 
gramm ist, daß man schnell schreiben kann. 
Diese Forderung klingt zwar banal, doch 
wurde sie bislang von keinem Apple-Text- 
programm erfüllt. Der Wordstar war bei etwa 
100, der Applewriter bei etwa 200 Zeichen/ 
Minute überfordert. Der Fast-Writer scrollt 
stufenlos, der Applewriter hüpfend und der 
Wordstar wortweise. Aber nicht nur das 
Scrollen ist beim Fast-Writer überragend 
schnell. Wenn man beispielsweise beim 
Fast-Writer (FW) und beim 64K-Applewriter 
(AW) den Speicher mit dem Muster 
RRXKKKKKK u. (27K) füllt, ergeben sich für 
das Ersetzen („xxx durch „yyy“ usw.) fol- 
gende Sekundenwerte: 

xxx —> yyy: AW: 89s, FW: 5s (Faktor 17) 
xxX > xx: AW: 110s, FW: 5s (Faktor 22) 
xx — yyy: AW: 118s, FW: 5s (Faktor 23) 
Bei diesen Zahlen erübrigt sich jeder weite- 
re Kommentar, 


Yun ann 


Ulrich Stiehi 
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Teil 2: Multiplikation und Division 


von Ulrich Stiehl 
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Multiplikation 

Dezimale Multiplikation 
Zerlegungsverfahren 

Links- und Rechtsverfahren 
Normalverfahren 
Tausendeinsverfahren 
Binäre Multiplikation 
Zerlegungsverfahren 

Links- und Rechtsverfahren 
Normalverfahren 
Tausendeinsverfahren 
6502-Multiplikation 
Division 

Dezimale Division 

Binäre Division 
6502-Division 


Dieser zweite Teil setzt voraus, daß Sie 
den Stoff aus dem ersten Teil (Peeker 2/ 
86) bereits kennen. 


Multiplizieren heißt malnehmen oder ver- 
vielfachen. Der Ausdruck 

/x5=35 

im Sinne von „siebenmal die Fünf“ (und 
nicht „die Sieben fünfmal“) läßt sich in die 
Addition 
5+5+5 +5 +5 +5 +5 = 5 
überführen, wobei 7 als Multiplikator MR 
(Malzahl), 5 als Multiplikand MD (malge- 
nommene Zahl) und 35 als Produkt P (Er- 
gebnis) bezeichnet werden. Bei der 
mündlichen Multiplikation wird zuerst der 
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Multiplikator, bei der schriftlichen Multipli- 
kation zuerst der Multiplikand genannt, 
also 


mündlich: MR x MD = P 
T * 5 = 55 
schriftlich: MD = MR = P 
98765 * 7 = 691355 


Dies steht im Widerspruch zu mir bekann- 
ten Schulbüchern und beruht offenbar auf 
einem tradierten Mißverständnis, über das 
in der Zwischenzeit keiner mehr nachge- 
dacht hat. Rechnen Sie einmal „98765 * 
7“ schriftlich aus und murmeln Sie das, 
was Sie dabei denken, vor sich hin. Sie 
sagen „7x5, 7x6, 7 x 7/7" usw. und 
nicht „98765 * 7“, denn sonst wären Sie 
Adam Ries! 


Obwohl wir natürlich mit der schriftlichen 
Multiplikation vertraut sind, ist es nicht ein- 
fach, den sich dahinter verbergenden Al- 
gorithmus ins Bewußtsein zu heben. Ge- 
rade dies müssen wir jedoch tun, wenn wir 
die binäre Multiplikation im allgemeinen 
und die 6502-Multiplikation im besonde- 
ren verstehen wollen. Hierzu ist es erfor- 
derlich, die Phasen oder Komponenten 
der Multiplikation isoliert zu betrachten, 
wobei auch Dinge beachtet werden müs- 
sen, die man bei der konventionellen Pa- 
pier- und Bleistiftmethode außer acht las- 
sen würde. 


Beispiel: Wenn Sie auf einem weißen Blatt 
nur eine einzige schriftliche Multiplikation 
durchzuführen hätten, stünde Ihnen ge- 
nug „freier Raum“ zur Verfügung. Wenn 
die Aufgabe jedoch lauten würde, auf ei- 
nem karierten Papier bestimmter Größe 
möglichst viele 7-mal-5-stellige Multiplika- 
tionen unterzubringen, müßten Sie sich 
schon Gedanken über die Feldlängen der 
Teil- und Endprodukte machen, denn Sie 
würden z.B. links und rechts nicht genü- 
gend Platz haben, um die Teilprodukte 
„beliebig“ zu verschieben. 
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5.1.1. Zerlegungsverfahren 


Die schriftliche Multiplikation setzt das 
(auswendig gelernte) kleine Einmaleins 
voraus. Die Aufgabe 

98765 * 7 

ließe sich nicht lösen, wenn wir nicht be- 
reits die Produkte von 7 *5,7x6,7x*7 
usw. wüßten. Man kann diese Multiplika- 
tion aber auch in eine reine Addition um- 
wandeln: 


98765 1lmal 
+ 98765 Zmal 
+ 98765 3ömal 
+ 98765 4Amal 
+ 98765 Emal 
+ 98765 6mal 
+ 98765 7mal 


691355 Summe = Produkt 


Im Falle eines einstelligen Multiplikators 
wäre dieses Verfahren gerade noch an- 
gängig. Für die Aufgabe 

’I1TT x 98765 

würde man jedoch bereits einen Karton 
Papier benötigen. Also müssen wir uns bei 
mehrstelligen Zahlen Stelle für Stelle vor- 
arbeiten, was als Zerlegung (in Einer, Zeh- 
ner, Hunderter, Tausender usw.) bezeich- 
net wird. Beispiel: 


HZE 

77 x 321 
- MR MD MR MD 
77 = 1x 77 oder 1 x re 
l5dx = 20 x 77 oder 2 * 770 
2ölxx = 300 & 77 oder 3 = 7700 
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Wie ersichtlich, gibt es zwei Interpretatio- 
nen. So kann etwa die Multiplikation des 
Multiplikator-Zehners 2 mit dem Multipli- 
kanden 77 als 

2(0) x 7/7 oderals 

2 x 77(0) 

aufgefaßt werden. Für die Zehnerstelle 
können wir aber auch (2 * 77) * 10 
schreiben, d.h. allgemein formuliert: 


(MR-Stellenwert x MD) » 10 71 MR- 
Stelle. 


Bei der Papier-und-Bleistift-Multiplikation 
geht man nun noch einen Schritt weiter 
und zerlegt nicht nur den Multiplikator, 
sondern auch den Multiplikanden, denn 
man rechnet nicht 2 x 77, sondern 

2x7 = 4; Übertrag 1 

2*x7=14;14 +1 = 15. 


Anstelle der Zehnerstelle-Multiplikation 
2(0) * 77 können wir auch die 154 als 
Teilprodukt von 2 x 77 nach links schie- 
ben (154x), was durch das „x“ in dem 
obigen Beispiel angedeutet wird. Jede 
Verschiebung um eine Stelle nach links 
entspricht einer Multiplikation mit 10 (oder 
allgemein einer Multiplikation mit der Basis 
des jeweiligen Zahlensystems): 


Wir merken uns: 


1. Entweder schieben wir den Multiplikan- 
den nach links und multiplizieren danach 
mit der Multiplikatorstelle (= Multiplikan- 
denverschiebung), 


2. oder wir multiplizieren den Multiplikan- 
den mit der Multiplikatorstelle und schie- 
ben danach das Teilprodukt nach links (= 
Teilproduktverschiebung). 


5.1.2. Links- und Rechtsverfahren 


Man kann beim Multiplikator mit der links 
stehenden, höchsten Stelle (z.B. hier mit 
der Tausenderstelle) beginnen. Dies nen- 
nen wir Linksverfahren oder genauer 
Von-links-nach-rechts-Verfahren. Mit je- 
der weiteren Multiplikatorstelle, die wir von 
links wegnehmen, müssen wir das ent- 
sprechende Teilprodukt um eine Stelle 
nach rechts einrücken. Die Teilprodukte 
sind damit treppenförmig von links nach 
rechts eingerückt. 


Bei der Assemblerprogrammierung kann 
man das Wegnehmen einer Multiplikator- 
stelle durch Verschiebebefenle realisie- 
ren. Wenn man eine Linksverschiebung 
(ASL oder ROL) vornimmt, wird das je- 
weils höchste Bit, also die höchste Multi- 
plikatorstelle „weggenommen“ (= in das 
Carry-Flag übertragen). 





Linksverfahren-Beispiel 








MO MR 

1lil « 4321 
x444AAxxx T ZW: 04444000 T 
xx3ösöxk H ZU: 04777300 T+H 
XxxaR22x Z ZW: 04799520 T+HH+Z 
xxxxllll E ZW: 04800631 T+H+Z+E 
x4800631 P 


Umgekehrt kann man beim Multiplikator 
mit der rechts stehenden, niedrigsten 
Stelle (regelmäßig mit der Einerstelle) be- 
ginnen, Dies nennen wir Rechtsverfah- 
ren oder genauer Von-rechts-nach-links- 
Verfahren. Mit jeder weiteren Multiplikator- 
stelle, die wir von rechts wegnehmen, 
müssen wir das entsprechende Teilpro- 
dukt um eine Stelle nach links einrücken. 
Die Teilprodukte sind damit treppenförmig 
von rechts nach links eingerückt. 


Bei der Assemblerprogrammierung kann 
man das Wegnehmen einer Multiplikator- 
stelle durch Verschiebebefehle realisie- 
ren. Wenn man eine Rechtsverschiebung 
(LSR oder ROR) vornimmt, wird das je- 
weils niedrigste Bit, also die niedrigste 
Multiplikatorstelle „weggenommen“ (= in 
das Carry-Flag übertragen). 


Rechtsverfahren-Beispiel 


MD MR 
1111 * 4321 





xxXxıllll E ZW: 
KXxZRarx Z ZW: 
AX3535XX H ZW: 
xA44dxxx T ZW: 


0000111 1E 
000233 31 EtZ 
00356 631 EtZ+H 
0480 0631 E+Z+HHT 





x4800631 P 





Unter Teilprodukt versteht man das Pro- 
dukt einer Multiplikatorstelle mit dem Mul- 
tiplikanden (unter Berücksichtigung der 
Stellenverschiebung!). Unter Zwischen- 
summe versteht man die Summe der bis- 
lang errechneten Teilprodukte. Unter End- 
produkt oder kurz Produkt (P) versteht 
man die Summe aller Teilprodukte oder 
die letzte Zwischensumme. Wir haben hier 
im Vorgriff auf den nächsten Abschnitt zu- 
sätzlich die Zwischensummen (ZW) aus- 
gewiesen. 


Bei dem Rechtsverfahren bemerken wir 
übrigens, daß jede weitere Zwischensum- 
me eine weitere gültige Engziffer aufweist. 


Um zu einem Algorithmus zu gelangen, 
muß man sich Gedanken über die Stellen- 
anzahl oder Zahlenfeldlänge machen. 
Betrachten wir hierzu die Multiplikation: 


A321 4321 87654321 Stellen 
9999 * 9999 = 99980001 Zahlen 


Wir ersehen, daß die 4-mal-4-stellige Mul- 
tiplikation höchstens zu einem 8stelligen 
Produkt führt. Allgemein gilt, daß bei einer 
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x-mal-x-stelligen Multiplikation ein x-plus- 
x-stelliges Produktfeld immer ausreicht. 
Wenn wir die Teilprodukte der E-, Z-, H- 
und T-Multiplikationen in einem 8stelligen 
Feld ausrichten und dabei das Verschie- 
ben der Teilprodukte analysieren, so kön- 
nen wir zwei Phänomene erkennen: 


1 Bei dem Rechtsverfahren wird das erste 
Teilprodukt (für die E-Multiplikation) zu- 
nächst ganz rechtsbündig ausgerichtet; 
danach wird mit jeder weiteren Multiplika- 
torstelle jedes weitere Teilprodukt um eine 
Stelle nach links gerückt. Demgegenüber 
wird bei dem Linksverfahren das erste 
Teilprodukt (hier für die T-Multiplikation) 
nicht ganz linksbündig, d.h. um eine Stelle 
von der linken Kante entfernt, ausgerich- 
tet; danach wird mit jeder weiteren Multi- 
plikatorstelle jedes weitere Teilprodukt um 
eine Stelle nach rechts gerückt. 


2 Bei einem 4stelligen oder allgemein x- 
stelligen Multiplikator muß das Teilprodukt 
3mal oder allgemein (x-1)-mal nach links 
oder rechts geschoben werden. 


5.1.3. Normalverfahren 


Bei dem obigen Beispiel (5.1.2) wurden 
die E-, Z-, H- und T-Teilprodukte direkt 
untereinandergeschrieben. Allgemein 
führt ein x-stelliger Multiplikator zu x Teil- 
produkten. Bei der computermäßigen Mul- 
tiplikation muß man hingegen zusätzlich 
Zwischensummen bilden, weil sonst zu- 
viel Speicherplatz verschwendet wird - ei- 
ne 24-mal-24-Bit-Multiplikation benötigt 
72 Bytes für die Teilprodukte —, zumal das 
Ablegen der Teilprodukte im Speicher 
(fast) solange dauert wie das Aufaddieren 
zur Zwischensumme. 


Bei dem Rechtsverfahren würde man fol- 
gende Zwischensummen ZW bilden: 


1111 * 4321 


00000000 
r=OOHOTITT 


[ein} 


. ZW 


In] 


v0001L111 
+ DO02222x 


u) 


. ZW 


N 





00023351 
+ 003333xX 


[ae] 


. ZW 


‚L 





00356631 3. ZW 
+ 04444yxxx T 





04800651 4. ZW = P 


Für das Rechtsverfahren gilt: 

0. ZW= 0 

1. ZW = E-P (Einerprodukt) 

2 ZW=E-P+Z-P 

3.ZW=E-P +Z-P+H-P 
4.ZW=E-P+Z-P+H-P+T-P 

Die letzte Zwischensumme ist gleichzeitig 
das Gesamtprodukt der Multiplikation. 


Für das Linksverfahren gilt: 
0.ZW=0 

1. ZW = T-P (Tausenderprodukt) 
2.ZW =T-P + H-P 

3.ZW = T-P+H-P +Z-P 

4.ZW =T-P+H-P+Z-P+E-P 


Das soeben skizzierte Verfahren bezeich- 
nen wir als Normalverfahren oder genau- 
er als normales Zwischensummenverfah- 
ren. Das besondere Merkmal dieser Me- 
thode ist, daß die Position der Zwischen- 
summen unverändert bleibt und nur das 
jeweilige Teilprodukt nach rechts (= nor- 
males Rechts[zwischensummen]verfah- 
ren) oder nach links (normales Linksl[zwi- 
schensummen]verfahren) verschoben 
wird. Die Teilproduktverschiebung kann 
auch als Multiplikandenverschiebung ge- 
deutet werden (s. 5.1.1.). Wir merken uns 
deshalb: 

Beim Normalverfahren wird das Teilpro- 
dukt oder der Multiplikand, aber niemals 
die Zwischensumme selbst verschoben. 


5.1.4. Tausendeinsverfahren 


Diesen Abschnitt sollten Sie ggf. Üüber- 
springen, da jetzt eine Methode vorgestellt 
wird, die mit „Papier und Bleistift” nichts 
zu tun hat. 

Wie bereits eingangs bemerkt, sind die 
bekannten 6502-Einführungen bezüglich 
der Binärmathematik völlig undidaktisch 
aufgebaut. Dies wird an den dort präsen- 
tierten Beispielen für die 8-mal-3-Bit-Mul- 
tiplikation besonders deutlich. In dem 
Buch „Kehrel: Apple Assembler lernen" 
findet sich der weiter unten als Tausend- 
eins-Linksverfahren bezeichnete Algorith- 
mus, der in identischer Form in „Inman: 
Apple Machine Language”, in „Leventhal: 
6502 Assembly Language Programming“ 
und ähnlichen Einführungen auftaucht. In 
all diesen Lehrbüchern wird dieser exoti- 
sche Algorithmus kommentarlos in den 
Raum gestellt — wahrlich eine didaktische 
Zumutung, zumal es sich nicht einmal um 
den schnellsten Algorithmus handelt! 

Was hat es nun mit dem Tausendeinsver- 
fahren auf sich? Betrachten wir zu diesem 
Zweck den Anfang der folgenden Multipli- 
Kation nach dem „anomalen“ Links[zwi- 
schensummen]verfahren (= Tausend- 
eins-Linksverfahren): 


0001 * 1000 





00000000 0. ZW 
+ 00000001 1000 x 1! 


—— 


00000001 ??? 





Ist 1000 * 1 = 1? Dies kann doch wohl 
nicht stimmen! Was ist geschehen? Wäh- 
rend wir beim normalen Links[zwischen- 
summen]verfahren den Multiplikanden 
oder das Teilprodukt verschieben, wird 
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stätige die Kenntnisnahme mit meiner Unterschrift: 


2. Unterschrift 


beim anomalen Tausendeins-Linksverfah- 
ren die Zwischensumme selbst verscho- 
ben. Deshalb ist jede Zwischensumme bis 
auf die letzte falsch. Um dies begreifbar zu 
machen, stellen wir Tausendeins- und 
Normalverfahren einander gegenüber. Zur 
Verdeutlichung fügen wir eine zusätzliche 
Verschiebungszeile ein („Shift“), die beim 
1001-Verfahren die Verschiebung der 
Zwischensumme und beim Normalverfah- 
ren die Verschiebung des Multiplikanden 
anzeigt. Beim 1001-Verfanren muß man 
deshalb jeweils die 2. und 3. und beim 
Normalverfahren die 1. und 3. Zeile ad- 
dieren: 











Rechtsverfahren 
anomal 1001 normal 
2345 «+ 6789 2345 * 6789 
0000 0000 0000 0000 0, ZW 
0000 0000 xxxx 2545 kein Shift 
+21105 + 2 1105 MD # 9 
21105 0000 0002 1105 1. ZW 
> 2110 5000 < xxx2 34bx shift 
+18760 + 18 7600 MD = 8(0) 
20870 5000 0020 8705 2, ZW 
> 2087 0500 < xx23 45xx Shift 
+16415 + 1641 500 MD * 7(00) 
18502 0500 0185 0205 3. ZW 
> 1850 2050 < x234 5xxx Shift 
+14070 + 1407 0000 MD = 6(000) 
159206 2050 1592 0205 4, ZW 


>.1592210205 








Zur Verdeutlichung haben wir 2 Vierer- 
gruppen gebildet, die linke und die rechte 
Vierergruppe. 

Beim normalen Rechtsverfahren wird der 
Multiplikand zunächst in der rechten Vie- 
rergruppe eingesetzt. Nach jeder Adaition 
— mit Ausnahme der letzten — wird der 
Multiplikand um 1 Stelle nach links ver- 
schoben [<-]. Es finden damit 4 Additio- 
nen und 3 Linksverschiebungen des Multi- 
plikanden statt: 

A-L-A-L-A-L-A 

Da der Multiplikand infolge der sukzessi- 
ven Linksverschiebung die beiden Vierer- 
gruppen überlappt, muß die Addition stets 
beide Vierergruppen erfassen. 

Beim anomalen Rechtsverfahren (1001- 
Methode) wird der unverschobene Multi- 
plikand mit der jeweiligen Multiplikatorstel- 
le malgenommen und das sich ergebende 
Teilprodukt stets in der linken Vierergrup- 
pe eingetragen. Da die 4 Stellen der linken 
Vierergruppe meist nicht ausreichen, wird 
eine zusätzliche Übertrag-Stelle einge- 
richtet. Die linke Vierergruppe ist mithin 
eigentlich eine „Fünfergruppe“. Nach je- 
der Addition - einschließlich der letzten -— 
wird die sich ergebende Zwischensumme 
um 1 Stelle nach rechts verschoben [->], 
womit der Übertrag wieder in die linke 
Vierergruppe hineingeschoben wird. Es 
finden damit 4 Additionen und 4 Rechts- 
verschiebungen statt: 

A-R-A-R-A-R-A-R 


SUPERQUICK 





Da der Multiplikand nicht verschoben wird, 
muß die Addition nur die beiden linken 
Vierergruppen erfassen, wobei jedoch 
meist ein Übertrag zu berücksichtigen ist. 


Linksverfahren 











anomal 1001 normal 

2345 * 6789 23545 * 6789 
0000 0000 0000 0000 0, ZW 
0000 0000 > x234 Bxxx Shift 

+ 1 4070 + 1407 0000 MD = 6(000)} 
0001 4070 1407 0000 1, ZW 

< 0014 0700 > xx23 A45xx Shift 

+ 1 6415 + 164 150 MD & 7(00) 
0015 7115 1571 1500 2, ZU 

< 0157 1150 > xxx2 345x Shift 

+ 1 8760 + 18 7600 MD x 8(0) 
0158 9910 1589 9100 3. ZW 

< 1589 9100 > xxxıx 2345 Shift 

E= 2 1105 + 2 1105 MD x 9(0) 


1592 0205 1592 0205 4. ZW 


Beim normalen Linksverfahren wird der 
Multiplikand zunächst in der linken Vierer- 
gruppe eingetragen und bereits vor der 
ersten Addition um 1 Stelle nach rechts 
verschoben [->]. Es finden damit 4 
Rechtsverschiebungen und 4 Additionen 
statt: 

R-A-R-A-R-A-R-A 

Da der Multiplikand infolge der sukzessi- 
ven Rechtsverschiebung die beiden Vie- 
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rergruppen überlappt, muß die Addition 
stets beide Vierergruppen erfassen. 

Beim anomalen Linksverfahren wird der 
unverschobene Multiplikand mit der jewei- 
ligen Multiplikatorstelle malgenommen 
und stets in der rechten Vierergruppe ein- 
getragen. Da die 4 Stellen der rechten 
Vierergruppe meist nicht ausreichen, er- 
folgt ein Übertrag in die erste Stelle der 
linken Vierergruppe. Dies ist normal, denn 
anders als beim anomalen Rechtsverfah- 
ren braucht keine zusätzliche Übertrag- 
Stelle eingerichtet zu werden. Nach jeder 
Addition — mit Ausnahme der letzten — 
erfolgt eine Linksverschiebung [<-]. Es 
finden damit 4 Additionen und 3 Linksver- 
schiebungen statt: 

A-L-A-L-A-L-A 

Da der Multiplikand nicht verschoben wird, 
muß die Addition nur die beiden rechten 
Vierergruppen erfassen, wobei jedoch 
meist ein Übertrag zu berücksichtigen ist. 


5.2. Binäre Multiplikation 


Für die binäre Multiplikation gelten folgen- 
de Grundregeln: 


0*x0=0 
0+1=0 
1*0=0 
Tele 


5.2.1. Zerlegungsverfahren 


Während bei der dezimalen Multiplikation 
das kleine Einmaleins beherrscht werden 
muß, reduziert sich das binäre Zerle- 
gungsverfahren auf die Frage, ob der Mul- 
tiplikand mit 1 oder mit O multipliziert wer- 
den soll, oder anders formuliert, ob der 
unveränderte, wenngleich stellenverscho- 
bene Multiplikand oder Null als Teilprodukt 
notiert werden soll. Fazit: Die Multiplika- 
tion des Multiplikanden mit einem Einser- 
bit des Multiplikators läuft auf das stellen- 
verschobene Abschreiben des Multipli- 
kanden hinaus. Beispiele: 


1111 *& 11 


1771 
2111 


11ll1 & 00 


0000 
0000 


5.2.2. Links- und Rechtsverfahren 


Die Links- und Rechtsverfahren sind ana- 
log anwendbar. Bei den nachfolgenden 
Beispielen sind wieder die Überträge als 
Additionshilfen vermerkt: 
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Linksverfahren-Beispiel 


MD MR 

1011 *& 1110 (11x 14) 
x1011000 1 * 1011000 
xx101100 1 * 101100 
xxxlüllü 1%+ 10110 
XXXX0000 0 * 1011 
ı111ı Übertrag 

(154) 


10011010 


Rechtsverfahren-Beispiel 


MD MR 

Illl # 10911 „15 & 1]) 
xxxxllll 1* an 
xxxlll110 1 * a ale 
xx000000 0 = 111100 
x1111000 1 * 1111000 

ala Übertrag 

Alalle bi Übertrag 
10100101 (165) 





Wie ersichtlich, führt eine 4-mal-4-Bit- 
Multiplikation höchstens zu einem 8stelli- 
gen Produkt. Allgemein gilt, daß eine x- 
plus-x-stellige Zahlenfeldlänge für ein x- 
mal-x-Bit-Produkt stets ausreichend ist. 


5.2.3. Normalverfahren 


Auch das normale Zwischensummenver- 
fahren ist analog anwendbar. Bei dem 
nachfolgenden Beispiel für eine 8-mal-8- 
Bit-Multiplikation im Rechtsverfahren ste- 
hen jeweils Zwischensumme (ZW) und 
Teilprodukt als 16-Bit-Zahlen untereinan- 
der, wobei neben dem Teilprodukt der 8- 
Bit-Multiplikator (MR) mit der rechts her- 
ausgeschobenen Multiplikatorstelle notiert 
wird. 


MD * MR 
00001111 * 10101010 
15 * 170 


00000000 00000000 0. ZW 
+00000000 00000000 x1010101-0 MR 





00000000 00000000 1. ZW 
+00000000 00011110 xx101010-1 MR 

00000000 00011110 
+00000000 00000000 





2. ZW, 
XxxlOlO1l-0 MR 


00000000 00011110 
+00000000 01111000 


3, ZW 

xxxxl0l0O-1 MR 
00060000 10010110 

+00000000 00000000 


4, ZW 
XxXxxx1l0l-0 MR 


00000000 10010110 
+00000001 11100000 


5. ZW 
XKHXxHXlü—-l MR 





00000010 01110110 
+00000000 00000000 


6. ZW 
EXXXXXXl-0O MR 


Tg ZW 
KXXKXXXX-l NR 


00000010 01110110 
+00000111 10000000 


00001001 11110110 8, ZW 


5.2.4. Tausendeinsverfahren 


Das Tausendeinsverfahren ist aus pro- 
grammiertechnischer Sicht — nicht aus der 
Papier-und-Bleistift-Sicht! — effizienter als 
das Normalverfahren. Der Abschnitt über 
das dezimale Tausendeinsverfahren 
(5.1.4) wird hier vorausgesetzt. Zunächst 
ein Beispiel: 








Rechtsverf. Linksverf. 
1111 = 1011 1117 & 101] 
0000 0000 0000 0000 
0000 0000 < 0000 0000 
+ 1111 + 1111 MD 
6) ie) Übertrag 
Ol111 0000 000 1117 
> 0111 1000 <= 0001 1110 
FL] + 0000 MD 
1 Ö Übertrag 
10110 1000 0001 1110 
> 1011 0100 < 0011 1100 
+ 0000 + 1111 MD 
0 ] Übertrag 
Ol1011 0100 0100 1011 
> 0101 1010 < 1001 0110 
ll + 11ll MD x 0 
1 l Übertrag 
10100 1010 


1010 0101 


In Abweichung zum dezimalen Tausend- 
einsverfahren können wir folgendes kon- 
statieren: 

1. Beim binären Rechis/Linksverfahren 
paßt das Teilprodukt exakt in die linke/ 
rechte Vierergruppe, während beim dezi- 
malen Rechts/Linksverfahren eine „Fün- 
fergruppe“, d.h. ein 5stelliges Feld vorge- 
sehen werden muß. 

2. Erst wenn die Zwischensumme gebildet 
wird, ist beim binären Tausendeinsverfah- 
ren ein Übertrag zu erwarten. Beim 
Rechtsverfahren geht der Übertrag in die 
9. Stelle (externer Übertrag) und beim 
Linksverfahren in die 5. Stelle (interner 
Übertrag). 

3. Beim Rechtsverfahren kann sich die 
Addition auf die linke Vierergruppe be- 
schränken. Ein ggf. enistehender externer 
Übertrag wird durch die anschließende 
Rechtsverschiebung wieder in die linke 
Vierergruppe hineingeschoben. 

4. Beim Linksverfahren kann sich die Ad- 
dition auf die rechte Vierergruppe be- 
schränken. Ein ggf. entstehender interner 
Übertrag führt bei der linken Vierergruppe 
höchstens zu einer Addition von 1 (wozu 
programmtechnisch ein Inkrement-Befehl 
ausreicht). 


Wenn wir das Beispiel generalisieren und 
anstelle der Vierergruppen von „Achter- 
gruppen“ (= Bytes) sprechen, haben wir 
den Schlüssel zur binären Multiplikation 
nach dem Tausendeinsverfahren ge- 
funden. 
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Treue wird belohnt! 





| Mit der Sammeldiskette #16, die zum Heft 


4/1986 verschickt wird, werden die Fort- 
setzungsbezieher der Peeker-Sammeldis- 
ketten zusätzlich einen vollständigen Ap- 
plesoft-Editor kostenlos erhalten. 

Mit dieser Zusatzleistung belohnen wir un- 
sere treuen Stammkunden. Der Applesoft- 
Editor wird nur an diejenigen verschickt, 
die bereits vor dem 1. April 1986 Fortset- 
zungsbezieher der Sammeldisketten ge- 
wesen sind. Wer also bis zum 31. März 
1986 noch einen Forsetzungsauftrag für 
mindestens 6 Sammeldisketten erteilt, ist 
mit dabei! 


Bei dem Applesoft-Editor handelt es sich 
um einen von U. Stiehl entwickelten Ma- 
kroeditor, der unter der Bezeichnung 
MUM (Macro Utilities Master) von der Fir- 
ma Heyden Datasystems in Großbritan- 
nien und den USA vertrieben wird. Wie 
heißt es doch so schön in der englischen 
Anleitung: „You have chosen the right 
MUM and like every other mum this one 
will look after your special needs for a 
lifetime.“ 


Kurzanleitung 


| Der Applesoft-Editor setzt einen Apple 


II+/e/c (40 Z/Z) mit einem Laufwerk vor- 
aus und ist für 48K-DOS-3.3 (oder Diver- 
si-DOS usw.), nicht jedoch für ProDOS 
gedacht. (Hierfür gibt es den analogen 
PRODOS.EDITOR über den Hüthig Soft- 
ware Service) Nach dem Booten von 
DOS 3.3 oder Diversi-DOS legen Sie die 
Sammeldiskette #16 ein und starten Sie 
den Editor mit 

BRUN MACROEDITOR 

Eine spezielle Schnell-Lade-Routine stellt 
selbst unter dem alten DOS 3.3 sicher, 
daß der Editor in maximal 2-3 Sekunden 
im Speicher installiert ist. Der Editor belegt 
den Bereich $7D00-$95FF ($7D00 = de- 
zimal 32000) und kann auch gestartet wer- 
den, wenn sich ein Applesoft-Programm 
bereits im Speicher befindet. Und nun die 
Befehle im einzelnen: 


&U 

Damit läßt sich der Editor vorübergehend 
deaktivieren, um z.B. ein Applesoft-Pro- 
gramm mit RUN auszutesten, das jedoch 
nicht HIMEM höher als 32000 oder MAX- 
FILES auf einen anderen Wer als 3 setzen 
sollte, weil sonst der Editor überschrieben 


| werden würde. Das gleiche gilt für FP; 


dagegen ist NEW natürlich erlaubt. 

& 

Damit oder auch mit CALL 32000 wird der 
Editor wieder aktiviert. Nunmehr kann man 
alle nachfolgenden Befehle eingeben. 


Applesoft-Editor 








Z 

Es erscheint das Wort „LINE“, und man 
muß jetzt die Nummer der zu ändernden 
Programmzeile eingeben, die dann auf 
den letzten 6 Zeilen des Bildschirms ange- 
zeigt wird. Als spezielle Korrigierbefehle 
sind implementiert: 


Ctri-B 

Sprung zum Beginn der Zeile. 
Cirl-E 

Sprung zum Ende der Zeile. 
Cirl-Z 

Eine Zeile tiefer. 

Ctri-T 

Tabulieren, d.h. 10 Zeichen vorwärts. 
Linkspfeil 

Ein Zeichen nach links. 
Rechtspfeil 

Ein Zeichen nach rechts. 
Ctri-D 


Delete bzw. Löschen des Zeichens, auf 
dem der Cursor gerade ruht. 

Ctrl-I 

Insert bzw. Einschalten des Einfüge-Mo- 
dus ab der momentanen Cursor-Position. 
Jedes nunmehr eingegebene Zeichen 
schiebt die Applesoft-Zeile entsprechend 
auseinander. Außerdem können im Einfü- 
ge-Modus die meisten Ctrl-Zeichen ein- 
gegeben werden außer 

Rechtspfeil, Linkspfeil, Return, 

mit denen man den Einfüge-Modus wieder 
aufhebt. 

Return 

Übernahme der Applesoft-Zeile, so wie 
man sie am Bildschirm sieht, in den Pro- 
grammspeicher. 

Ctirl-P 

Abhacken der Applesoft-Zeile ab der mo- 
mentanen Cursor-Position und Übernah- 
me des Zeilenanfangs in den Programm- 
speicher. 

ESC 

Verlassen des Editier-Modus, ohne daß 
die (veränderte) Zeile in den Programm- 
speicher übernommen wird. Ctrl-X und 
Ctrl-C bewirken das gleiche. 


K 

Wie Z, doch wird die Applesoft-Zeile in 
gepackter Form, d.h. ohne überflüssige 
Leertasten, angezeigt. Nützlich bei über- 
langen Programmzeilen. 


Ctri-K 

Ausgabe des Makros „CATALOG“. 
Ctrl-L 

Ausgabe des Makros „LIST“. 

Diese beiden Makros sind vordefiniert. 
Ctri-D 

Es erscheint das Wort „Macro“, und man 
kann nunmehr ein eigenes Tastatur-Makro 
definierten. Dazu tippt man zunächst Otrl- 


Q oder Ctrl-W oder Ctri-E oder Ctrl-R oder 
Otrl-T oder Ctrl-P (alle in der dritten Reihe 
der Tastatur) und daraufhin das Makro 
(z.B. HOME: LIST usw.). Ein Makro kann 
100 Zeichen lang sein. Das definierte Ma- 
kro kann dann mit Ctrl-Q usw. aufgerufen 
werden. Wenn man bestimmte Makros 
permanent benötigt, so speichere man 
den ganzen Editor mit 

BSAVE EDITOR.NEU, A32000, L6399 


M + Monitorbefehl 
führt einen Monitorbefehl von BASIC aus | 
durch, z.B. M300L entspricht CALL -151, 
300L, Otrl-C. 


&D + Dezimalzahl 

verwandelt eine Dezimalzahl in eine Hex- 
zahl, z.B. &D16 ergibt $0010. 

&H + Hexzahl 

verwandelt eine Hexzahl in eine Dezimal- 
zahl, z.B. &H10 ergibt 16. 


&L 

zeigt die Länge des Applesoft-Programms 
in Bytes an. 

&F 

zeigt die Anzahl der freien Sektoren auf 
der Diskette an, auf die man zuvor mit Ctrl- 
K o.ä. zugreifen sollte; funktioniert nicht 
korrekt bei bestimmten, für 40 oder 80 
Spuren modifizierten DOS-Varianten. 


&V 

listet alle Variablen des Applesoft-Pro- 
gramms in alphabetischer Reihenfolge. Mit 
POKE 38395, A (z.B. POKE 38395, 5) 
kann man die Anzahl der Verweise pro 
Zeile für den Ausdruck festlegen. 

&R z,i 

„renumbert“ das gesamte Applesoft-Pro- | 
gramm ab Zeile z im Intervall i, z.B. 
&R100,5 


&K 
entfernt bzw. „kruncht“ alle REMs; vorher 
kommentiertes Programm abspeichern! 


&S 

Dieser Befehl dient in der Form 
&S:Token, z.B. &S:GOTO 

zum Suchen von Tokens und in der Form 
&S“String, z.B. &S"HALLO 

zum Suchen von Strings. Bei gemischten 
Ausdrücken muß man im Zweifelsfall bei- 
de Varianten durchprobieren. 


& + Nummer 

zeigt eine Applesoft-Zeile in der internen 
Form als ASCII-Hexdump an, z.B. 

&100 


Hüthig Software Service : 6900 Heidelberg - Postfach 102869 
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5.3. 6502-Multiplikation 


Während die meisten 16-Bit-Prozessoren 
über mehr oder weniger komfortable Mul- 
tiplikationsbefehle verfügen, muß bei 8- 
Bit-Prozessoren die Multiplikation auf Ad- 
ditions- und Schiebebefehle reduziert 
werden. Dies kostet natürlich Prozessor- 
takte. Beispielsweise benötigt beim 68000 
eine 16-mal-16-Bit-Multiplikation unter 
Verwendung des MULU-Befehis ca. 100 
Takte, aber ohne Verwendung des MULU- 
Befehls, d.h. konventionell mit ADD-Be- 
fehlen usw., ca. 550 Takte. Ebenfalls ca. 
550 Takte werden bei der 6502-16-mal- 
16-Bit-Multiplikation im optimierten Tau- 
sendeinsverfahren benötigt. Eine präzise 
Bestimmung der Takte ist indes nicht 
möglich, weil die Multiplikationsdauer u.a. 
von der Anzahl der Einserbits des Multipli- 
kators abhängt. 


Es gibt prinzipiell vier Multiplikationsalgo- 
rithmen: 


1. MRLN = Von-rechts-nach-links-Nor- 
malverfahren. 

2. MLRN = Vonr-links-nach-rechts-Nor- 
malverfahren 

3, MRLT = Von-rechts-nach-links-Tau- 
sendeinsverfahren 

4. MLRT = Von-links-nach-rechts-Tau- 


sendeinsverfahren 


Nachfolgend stellen wir alle vier Varianten 
für die 8-mal-8-Bit-Multiplikation vor. Die 
Programme setzen die Beherrschung der 
6502-Befehle ASL, LSR, ROL und ROR 
voraus, die aus Platzgründen an dieser 
Stelle nicht erläutert werden können. Es 
lassen sich folgende Schritte unter- 
Scheiden: 


Schritt 1: Zunächst muß das spätere Pro- 
dukt auf 0 gesetzt werden. Falls Multiplika- 
tor und Multiplikand erhalten bleiben sol- 
len, müssen Shift-Multiplikator (und beim 
Normalverfahren Shift-Multiplikand) Initia- 
lisiert werden. Man beachte, daß beim nor- 
malen Linksverfahren MDL in SMDH ein- 
getragen wird (s. Listing). 

Schritt 2: Als nächstes muß der Bit-Zähler 
für die (hier 8) Multiplikator-Bits gesetzt 
werden. 

Schritt 3: Bei den Rechtsverfahren wird 
jetzt der Multiplikator rechtsverschoben. 
Bei den Linksverfahren wird jetzt entweder 
der Multiplikand rechtsverschoben (Nor- 
malverfahren) oder das Produkt (= mo- 
mentane Zwischensumme und späteres 
Endprodukt) linksverschoben (Tausend- 
einsverfahren). 

Schritt 4: Bei den Rechtsverfahren wird 
jetzt im Falle eines gesetzten Carry-Flags 
die Addition durchgeführt; man beachte 
die unterschiedlichen Additionen! Bei den 
Linksverfahren wird jetzt der Multiplikator 
linksverschoben. 
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Schritt 5: Bei den Rechtsverfahren wird 


jetzt der Multiplikand linksverschoben 
(Normalverfahren) oder das Produkt 
rechtsverschoben (Tausendeinsverfah- 


ren). Bei den Linksverfahren wird jetzt im 
Falle eines gesetzten Carry-Flags die Ad- 
dition durchgeführt; man beachte die un- 
terschiedlichen Additionen! 

Schritt 6: Jetzt wird geprüft, ob alle (hier 
alle 8) Bits des Multiplikators erledigt sind. 
Wenn nein, dann zurück zu Schritt 3. 
Wenn ja, dann Ende. 


Bemerkungen zu MERLN/M8LRN 

Wenn Sie M8RLN genau untersuchen, 
werden Sie feststellen, daß die letzte (hier 
8.) Linksverschiebung des Shift-Multipli- 
kanden (SMD) in Zeile 44 unnötig ist. Der- 
artige „Leerverschiebungen“ am Anfang 
oder Ende der Schleife nimmt man wegen 
der Kürze des Programms oft in Kauf. 

Wie ersichtlich, muß hier bei MSRLN und 
MSLRN die Addition Low- und High-Bytes 
gleichermaßen einbeziehen. Deshalb dau- 
ert das Normalverfahren länger als das 
Tausendeinsverfahren. 

Bemerkungen zu M8RLT/M8LRT 

Wenn Sie M8LRT genau untersuchen, 
werden Sie feststellen, daß die erste 
Linksverschiebung des Produkts in Zeile 
29 unnötig ist („Leerverschiebung‘). 

Bei M8LRT tritt in Zeile 37 der BCC-INC- 
Befehl auf, der bei M3RLT fehlt. Deshalb 
ist MSRLT nicht nur der kürzeste, sondern 
auch der schnellste Algorithmus. 


Erkennungsmerkmale 

Rechtsverfahren erkennen Sie daran, daß 
der Multiplikator mit LSR oder ROR nach 
rechts verschoben wird. Sinngemäß er- 
kennen Sie Linksverfahren daran, daß der 
Multiplikator mit ASL oder ROL nach links 
verschoben wird. 

Normalverfahren erkennen Sie daran, daß 
die Rechtsverschiebung des Multiplikators 
mit der Linksverschiebung des Multipli- 
kanden gekoppelt ist und umgekehrt. 
Sinngemäß erkennen Sie Tausendeins- 
verfahren daran, daß die Rechtsverschie- 
bung des Multiplikators mit der Rechtsver- 
schiebung des Produkts gekoppelt ist und 
umgekehrt. 


M8RLN 
Normales Rechtsverfahren (8x8) 


ORG $0300 
* MSRLN 
* 

JMP 51 
* Multiplikand Low 
MDL HEX 00 
* Multiplikator Low 
MRL HEX 00 
* Produkt Low-High 
FL HEX 00 
PH HEX 00 
* Shift-MD Low-High 
SMDL HEX 00 


1 
2 
3 
4 
D 
6 
7 
8 
9 












































14 SMDH HEX 00 

15 * Shift-MR Low 

16 SMRL HEX 00 

IT * Bit-Zähler 

18 BITS HEX 00 

19 * 1. Werte initialisieren 
20 Sl LDA #0 

2] STA PL 

22 STA PH 

23 LDA MDL 

24 STA SMDL 

25 LDA #0 

26 STA SMDH 

27 LDA MRL 

28 STA SMRL 

29 * 2. Bit-Zähler setzen 

30 S2 LDA #8 

öl SIA ‚BIT 

5% * 3. SMR rechtsverschieben 
33 Ss LSR SMRL 

54 B6C So 

35 * 48 Wenn Cl, PF=F+t sWM 
56 54 CLC 

Sr LDA PL 

38 ADC SMDL 

39 SEA. DL 

40 LDA PH 

Aal ADC SMDH 

42 STA PH 

43 * 5. SMD linksverschieben 
44 s5 ASL SMDL 

45 ROL SMDH 

46 * 6. Alle Bits erledigt? 
47 56 DEC BITS 

48 BNE 53 


RTS 






M8LRN 
Normales Linksverfahren (8x8) 

































] ORG $0300 

2 * M8LRN 

a * 

4 JMP S1 

5 * Multiplikand Low 

6 MDL HEX 00 

7 * Multiplikator Low 

8 MRL HEX 00 

9 * Produkt Low-High 

10 PH HEX 00 

11 PH HEX 00 

12 * Shift-MD Low-High 

15 SMDL HEX 00 

14 SMDH HEX 00 

19 * Shift-MR Low 

16 SMRL HEX 00 

17 * Bit-Zähler 

18 BITS HEX 00 

19 * l. Werte initialisieren 
20 Sl LDA #0 

21 SEA EL, 

22 STA PH 

23 LDA MDL 

24 STA SMDH 

25 LDA #0 

R6 STA SMDL 

27 LDA MRL 

28 STA SMRL 

29 * 2. Bit-Zähler setzen 
50 52 LDA #8 

Sl STA BITsS 

32 * 3, SMD rechtsverschieben 
33 > LSR SMDH 

54 ROR SMDL 

35 * 4, SMR linksverschieben 
36 54 ASL SMRL 

ST BCE 56 

38 * 5. Wenn C=]l, P=P+ SMD 
39 Sb CLE 

40 LDA PL 

41 ADC SMDL 

42 SLA FL 

45 LDA PH 

44 ADC SMDH 

45 SIA PH 

46 * 6. Alle Bits erledigt? 
AT 56 DEC BITS 

48 BNE 53 


RTS 
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M8RLT 
Anomales Rechtsverfahren (8x8) 


ORG $0300 





Nachfolgend bringen wir noch für die 16- 
mal-16-Bit-Multiplikation Algorithmen für 
das normale und das anomale Rechtsver- 
fahren. Die entsprechenden Linksverfah- 
ren befinden sich auf der Peeker-Sammel- 


MRH HEX 00 

MRL HEX 00 

* Produkt High bis Low 
HEX 00 
HEX 00 


* MSRLT 
* 
JMP Si 
* Multiplikand Low 
MDL HEX 00 
* Multiplikator Low 
MRL HEX 00 
* Produkt Low-High 
FL HEX 00 
PH HEX 00 
* Shift-MR Low 
SMRL HEX 00 
* Bit-Zähler 
BITS HEX 00 
* 1A. Werte initialisieren 
31 LDA #0 
SA PL 
STA PH 
LDA MRL 
STA SMRL 
„ Bit-Zähler setzen 
LDA #8 
STA "BITS 
SMR rechtsverschieben 
LSR SMRL 
BCE 55 
.‚ Wenn C=1l, PH = FH + MDL 
GE 
LDA PH 
ADC MDL 
STA PH 
. P rechtsverschieben 
ROR PH 
RÖR EL 
‚. Alle Bits erledigt? 
DEC BITS 
BNE 53 
RTS 


co Jo hGUD Hm 


M8LRT 
Anomales Linksverfahren (8x8) 


ORG $0300 
* MBLRT 
* 
JMP Sl 
* Multiplikand Low 
MDL HEX 00 
* Multiplikator Low 
MRL HEX 00 
* Produkt Low-High 
PL HEX 00 
PH HEX 00 
* Shift-MR Low 
SMRL HEX 00 
x Bit-Zähler 
BILS HEX 00 
* l, Werte initialisieren 
Sl LDA #0 
SA EL 
SA. PH 
LDA MRL 
STA SMRL 
. Bit-Zähler setzen 
LDA #8 
ST4:\BIIS 
‚ P linksverschieben 
AsL EL 
ROL PH 
‚ SMR linksverschieben 
ASL SMRL 
BEc 56 
‚ Wenn C=l, P=P + MOL 
CLC 
LDA PL 
ADC MDL 
3A FL 
Bub 256 
ING PH 
. Alle Bits erledigt? 
DEC BITS 
BNE 53 
RTS 


oo Ja ba DH 
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disk. 


M16RLN 
Normales Rechtsverfahren (16x16) 
1 ORG $0300 
2 * MI6RLN 
3 * 
4 JMP Sıl 
5 * Multiplikand High/Low 
6 MDH HEX 00 
T MDL HEX 00 
8 * Multiplikator High/Low 
9 MRH HEX 00 
10 MRL HEX 00 
el * Produkt High bis Low 
12 PH HEX 00 
15 PN HEX 00 
14 PM HEX 00 
15 BL HEX 00 
16 + Shift-Multiplikand 
Ir SMDH EQU $00F9 
18 SMDN EQU $00FA 
19 SMDM EQU $00FB 
20 SMDL EQU $OO0FC 
21 * Shift-Multiplikator 
22 SMRH EQU $O0FD 
23  SMRL EQU $00FE 
24 * Bit-Zähler 
25  BITS EQU $O00FF 
265 * 1, Werte initialisieren 
27 Sl LDY #3 
28 LDA #0 
29 LOESCHE STA PH,Y 
30 STA SMDH,Y 
= DEY 
32 BPL LOESCHE 
33 LDY #1 
54 KOPIERE LDA MRH,Y 
Se STA SMRH,Y 
36 * MD,HL nach SMD.ML 
Su LDA MDH,Y 
38 STA SMDM,Y 
39 DEY 
40 BPL KOPIERE 
4] * 2. Bit-Zähler initialisieren 
42 S2 LDA #16 
AS STA BITS 
4A * 3, SMR rechtsverschieben 
45 55 LSR SMRH 
46 ROR SMRL 
AT BCE 55 
AB * 4. Wenn C=1l, P=P + SMD 
49 S4 GLE 
50 LDY #3 
5l ADDIERE LDA PH,Y 
52 ADE SMDH,Y 
53 STA PH,Y 
54 DEY 
55 BPL ADDIERE 
56 * 5. SMD linksverschieben 
a4 so ASL SMDL 
58 ROL SMDM 
59 ROL SMDN 
80 ROL SMDH 
61 * 6. Alle Bits erledigt? 
62 S6 DEC BITS 
63 BNE S3 
64 RTS 
| 
Mi6RLT 
Anomales Rechtsverfahren (16x16) 
1 ORG $0300 
2 * MI6RLT 
3 * 
4 JMP Sl 
5 * Multiplikand High/Low 
6 MDH HEX 00 
T MDL HEX 00 
8 * Multiplikator High/Low 

















HEX 00 
HEX 00 
* Shift-Multiplikator 
SMRH EQU $00FD 
SMRL EQU $O00FE 
* Bit-Zähler 
BITS EQU $O00FF 
* l. Werte initialisieren 
Sl LDY #3 
LDA #0 
LOESCHE STA PH,Y 
DEY 
BPL LOBESCHE 
LDY #1 
KOPIERE LDA MRH,Y 
STA SMRH,Y 
DEY 
BPL KOPIERE 
* 2. Bit-Zähler initialisieren 
52 LDA #16 
SsIA BIIs 
* 3. SMR rechtsverschieben 
(es) LSR SMRH 
ROR SMRL 
BCC 55 
* 4. Wenn C=l, P.HN = P.HN + MD.HL 
S4 CLC 
LDY #1 
ADDIERE LDA PH,Y 
ADC MDH,Y 
STa. ‘eier 
DEY 
BPL ADDIERE 
* 5. P rechtsverschieben 
35 ROR PH 
ROR PN 
ROR PM 
ROR PL 
* 6. Alle Bits erledigt? 
S6 DEG BITS 
BNE S3 
RTS 


Geschwindigkeitsoptimierte 8-mal-8-, 16- 
mal-8- und 16-mal-16-Bit-Multiplikations- 
routinen — allesamt Tausendeins-Rechts- 
verfahren — finden Sie in dem Aufsatz 
„Fast 6502 Multiplication“ in „Call A.P- 
‚P.L.E.“, Heft 6/1983. Eine Variante der 
schnellen 16-mal-16-Bit-Multiplikation. ist 
außerdem in meinem „Apple Assembler”, 
S. 65, abgedruckt. 

Die Peeker-Sammeldisk enthält zudem 
die Programme MULTSRLN.DEMO und 
MULT16RLN.DEMO, die den Multiplika- 
tionsvorgang Schritt für Schritt in Form von 
Binärzahlen anzeigen und sich deshalb 
besonders zum Üben eignen. 


6. Division 


Die Division ist leichter verständlich als die 
Multiplikation, da exotische Algorithmen in 
der Art des Tausendeinsverfahrens nicht 
möglich sind. 


6.1. Dezimale Division 


Dividieren heißt teilen. Bei dem Ausdruck 
22:7 =3Resti 

ist die 21 der Dividend DD (= die zu 
teilende Zahl), die 7 der Divisor DR (= 
Teiler), die 3 der Quotient Q (= das ganz- 


1.8) 





zahlige Ergebnis) und die 1 der Rest R, der 
bei natürlichen Zahlen dann entsteht, 
wenn die Division nicht „aufgeht“. 

Da die Division als Umkehroperation zur 
Multiplikation verstanden wird, kann man 
sich von der Richtigkeit einer Division 
überzeugen, indem man den errechneten 
Quotienten mit dem Divisor multipliziert 
und den eventuellen Rest hinzuzählt, also 
(7*3)+1=22. 

Wie bei der Subtraktion können auch bei 
der Division die Operanden nicht ver- 
tauscht werden, denn beispielsweise führt 
7..2 

zu einem anderen Ergebnis als 

2:7, 

Ferner wird in der traditionellen Mathema- 
tik die Division durch O ausgeschlossen. 
Es gelten dann - im Hinblick auf die binäre 
Division — folgende Divisionsregeln: 


DD : DR=G Rest R 
1. 220 21 Rast 87. l0s=2DD) 
Dr E36], 7=50-Rest 07 \(Re="DD] 
1 :0 = verboten 
0 :0 = verboten 


Die Division kann man in eine reine Sub- 
traktion überführen, z.B. 
369: 123 = 3 Rest: 


369 

-123 1lmal 
-123 2Zmal 
-123 Zmal 


SE nn m. 


000 


Wenn Dividend und Divisor die gleiche 
Anzahl der Stellen haben, ist dieses Ver- 
fahren empfehlenswert. Für die Aufgabe 
98765432 : 2 

würde man jedoch bereits einen Karton 
Papier benötigen. 


Intuitives „Herunterholen“ 


Bei der schriftlichen Division wendet man 
üblicherweise das „Herunterhol"-Verfah- 
renan: 


5150 
25" 

65' (5 herunter) 
-50 


—_— 


28.26 


150* (O0 herunter) 
-150 


ü 


Typisch für dieses Verfahren ist, 

a) daß der Divisor zunächst linksbündig 
unter den Dividenden gesetzt wird und 

b) daß im Falle einer nicht erfolgreichen 
Subtraktion die nächste Stelle oder auch 
mehrere gleichzeitig „heruntergeholt“ 
werden. Dies setzt jedoch voraus, daß 
man entweder ein guter Kopfrechner ist 
oder gut „raten“ kann. 

Wenn man als schlechter Kopfrechner die 
24-durch-8-stellige Division 
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997869686785696868697845: 12367578 
nach diesem intuitiven Verfahren zu lösen 
versucht, begreift man die Unzulänglich- 
keit des Algorithmus. 


Partialdivisionsverfahren 


Das „Herunterholen“ läßt sich durch die 
Stellen- oder Partialdivision beweisen. 
Das Verfahren ist jedoch derart umständ- 
lich, daß es als maschinensprachlicher Al- 
gorithmus ausscheidet: 


(3000 + 0100 + 0050 + 0000) (3150) 
: (0020 + 0005) > 2b) 
= (0100 + 0020 + 0006) =. 126) 

(3000 + 0100) [0100 heruntergeholt] 
— (0400 + 0100) = (0020 + 0005) «+ 0020 
= (2600 + 0000) 





[0050 heruntergeholt] 
= (0020 + 0005) * 0010 


(2600 + 0050) 
- (0200 + 0050) 
= (2400 + 0000) 


(2000 + 0400) [2400 neu zerlegt] 
- (1600 + 0400) = (0020 + 0005) * 0080 
= (0400 + 0000) 


(0300 + 0100) 
- (0300 + 0075) = (0020 + 0005) « 0015 
= (0000 + 0025) 

(0020 + 0005) [0025 neu zerlegt] 


- (0020 + 00056) = (0020 + 0005) * 0001 





= QlR26 


Genormtes „Herunterholen“ 


Wenn Dividend und Divisor beide x-stellig 
sind, genügen jeweils x-stellige Zahlenfel- 
der für den Quotienten und den Rest. Bei- 
spiele: 

999 : 001 ergibt Q = 999, R = 000. 

998 : 999 ergibt Q = 000, R = 998. 
Wenn der Dividend (2 x x)-stellig und der 
Divisor x-stellig sind, genügen ein (2 x x)- 
stelliges Feld für den Quotienten und ein 
x-stelliges Feld für den Rest. Beispiele: 
9999 : 01 ergibt Q = 9999, R = 00. 

0098 : 99 ergibt Q = 0000, R = 98. 

Im folgenden beschränken wir uns auf Re- 
chenbeispiele mit 4stelligem Dividenden 
und Divisor und somit 4stelligem Quotien- 
ten und Rest. Bei unserem Einführungs- 
beispiel müssen wir mithin mit Nullen auf- 
füllen: 

3150..0025: 


Wenn wir vom Kopfrechnen überhaupt 
keine Ahnung hätten, würden wir den 
„Herunterhol“-Algorithmus unter Berück- 
sichtigung genormter Zahlenfelder etwa 
so implementieren: 


DD DR Ö 
3150 : 0025 = xxxx 
ne 
0003' (3) 
-0025 
0003 
00351. C71 
-0025 





= KHAX 


= OxXxXX 


0006 = 0Olxx 
0065' (5) 

-0025 

-0025 
0015 

0150' (0) 

-0025 
-0025 
-0025 
-0025 
-0025 
-0025 


0000 


= 0l2x 


= 0126 


Bei diesem Algorithmus gibt es zwei Be- 
sonderheiten: 

a) Der Dividend hat eine feste Position, 
und der Divisor wurde von links nach 
rechts unter dem Dividenden verschoben. 
Alternative: Der Divisor erhält eine feste 
Position, und der Dividend wird von rechts 
nach links über dem Divisor verschoben, 
was auf dasselbe hinausläuft. Der Divi- 
dend fungiert dann programmtechnisch 
als „Shift-Dividend“ (Linksverschiebung). 
b) Das Einfügen des jeweils errechneten 
Stellenergebnisses im Quotientenfeld ist 
algoritnmisch* ungeschickt. Alternative: 
Die Stellenergebnisse werden von rechts 
nach links in das Quotientenfeld hineinge- 
schoben, was auf dasselbe hinausläuft. 
Der Quotient fungiert dann programm- 
technisch als „Shift-Quotient“ (Linksver- 
schiebung). 


Genormtes Schiebeverfahren 


Unter Berücksichtigung der obigen Modifi- 
kationen gelangen wir nunmehr zu einem 
genormten Schiebeverfahren: 


1.5p 


R-DR DD Q 


ua en 








0000 3150 xxxX 0, 
F :0093° "159% 
- 0025 xXXXO il 
= 0003 
< 0031 50xx 2 
- 0025 xx0Ol 
= 0006 
< 0065 5xXxX 3 
- 0025 xOll 
—- 0025 xUl2 
= 0015 
< DlBÜ XxXXXK d 
- 0025 0121 
- 0025 0122 
- 0025 0123 
— 0025 0124 
—- 0025 0125 
—- 0025 0126 
= 0000 Rest 


Spalte 1 enthält den jeweiligen Rest (R) 
und den Divisor (DR), Spalte 2. den Shift- 


* Algorithmisch ungeschickt in bezug auf die 6502- 
Schiebebefehle, die keine Bit-Einfügung zulassen 
Wenn wir mit ROL das Carry-Flag in den Quotienten 
hineinschieben, führen wir quasi durch die Hintertür 
das 1001-Verfahren bei der Division ein. 
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INTUS-Lern- und 
Anwenderprogramme 


für Apple Il - Computer 


e Rechtschreibtrainer 


e Business-English, über 2500 Wörter 

e Maschinenschreiben wie der Blitz 

e Basic-Lernprogramm, sehr umfangreich 
e Kinderschule, Lernen für Vorschulkinder 


DM 120,- 
DM 120,- 
DM 175,- 
DM 238,- 
DM 49, 


e AppleGraph, Erstellen von Kreis- und 


Balken-Graphiken 


DM 120,- 


e Rechenmodelle für AppleWorks- 


Rechenblatt 


DM 195,- 


e NEU: MailWorks für AppleWorks-Serienbriefe, 


für alle Drucker geeignet. 


DM 168,- 


e PriBu-Privatbuchhaltung gibt den Überblick DM 195,- 
e DMP-Charger zur Gestaltung eigener Zeichen- 


sätze auf dem Matrix-Drucker. 


DM 198,- 


e und über 200 weitere Programme. Katalog gratis 


e Demo-Disketten mit 5-9 
Teilprogrammen 


DM 10,- 


e 6000 Frei-Programme (fast) gratis 


Programm-Liste (Vorkasse) 


DM 10,- 


vAN 
INTUS SOFTWARE 


Kaiserstr. 21, 7890 Waldshut, 
Tel. 07751-7920 


Ausgabe und 
Eingabe mit 


TYPETERM® 


im Slot Ihres 


APPLE Il/lle 


Das bedeutet: Computer- 
textverarbeitung von der 
Schreibmaschinentastatur ! 
Steckerfertig ohne Umbau. 


| TYPETERM- DM 479, 


Interface 
für alle BROTHER-Typenrad- 
schreibmaschinen ab CE-51 


DM 1887,— 


EM-80 mit TYPETERM 


Paketpreis: 
Schreibmaschine 


CE-68 mit TYPETERM u... DM 2143,- 
TYPETERM-Kit für GE-50 ...... DM 468,- 
Cable Kit A 

(erforderlich ab EM-80) „u... DM 103,— 
TYPETERM - ein starkes Interface für 
starke Maschinen! Alle Cursor- und Gtl- 
Befehle. 4k ROM auf der Karte für DOS, 
PRODOS, CP/M, PASCAL: 2 Zeichensätze 
verfügbar z.B. deutsch u. ASCII. Alle 
Features: Hoch-/Tiefstellen, autom, Unter- 
streichen, var. Zeichen und Zeilenabst., 
autom. Papierzuführung usw. 


TYPETERM - ein Produkt von 


“ 
interkom Kock & Mreches GmbH 


—— . Postf., 3004 Isernhagen 4 
e alec brarıuc Telefon 05139-87393 
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Ausgabe mit 


TYPETERM® 
JUNIOR 


im Slot Ihres 


APPLE Il/lle 


Paketpreis DM 899,— 
Schreibmaschine AX-10 mit 
Interface TYPETERM JUNIOR, 
steckfertig. 


QUALITÄT AUS ERSTER HAND 


TYPETERM JUNIOR mit AX-10 — unser 

besonders günstiges Gespann, ebenfalls 

steckfertig. Mit TYPETERM JUNIOR kann 

die AX-10 mehr. Sie wird zum vollwertigen 

Typenraddrucker für Ihren Apple: 

@ 3 verschiedene Schriftstärken 

@® Automatisches Unterstreichen 

@ 2 Zeichensätze z.B. deutsch u. ASCII 

@ 2 Zeichenabstände 

@ 2k ROM auf der Karte für Ausgabe unter 
DOS, PRODOS, CP/M u. PASCAL. 


TYPETERM JUNIOR - ein Produkt von 


interkom Kock & Mrechas GmbH 


,‚ 9004 Isernhagen 4 
electronic en 05139-87393 








| Wir bieten Ihnen die Preh-Qualität auch für Apple. AK 88 


ZUSATZ-KARTEN: 


V-24-Schnittstelle ...... Z-BO-Karte .. 2.2.22 2 uerenenn M,- 
80-Zeichen-Karte m.Softswitch % - 16K-Language-Karte ......... 98,- 
JoyStickDeluxe ............ 59,- Accelerator3,6 MHz ......... 950,- 
68000 Intemex ............ 1600,- PALKarte ...... 22... .222220% 110,- 
RGBKarte .......-...---.--- 239,- IEEEAB8.........2.22222202. 312,- 
Koppler dataphon m. FTZ...... 325,- Z80 BKarte mit Software ...... 919,- 
Centronics-Karte von Epson für Graphik... . 210,- für Text... .145,- 


HENRREREREErFFFe 129,- 


Centronics-Schnittstelle für 2 Drucker gleichzeitig 


Super-Eprommer 


belegt keinen SIot, incl. Software für 2716-27128 


Floppy-Controller 


FDC 4A füralleLaufwerke ....... 169,- Bausatz wie links .. 
Leerplatine wie oben incl, Prom u. Eprom 


Erphi-Controller ..................... 298,- 


Disketten DAB ne eerel0st 29, 
Disketten :o 4%»: .....................0...... 105.36,- 


Preh Commander Keyboards 


pez. mit Gehäuse, An- | 





schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, Sondertasten für 

Cirl-Godes und Rechenfunktionen x... 2... 2.2: 20H ech 339,- 
Preh Commander Keyboard, frei programmierbar 

bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen . „.uussuusenn- nur 599,- 
Gleiche Tastatur wie oben 69 8 
fürApplelle ........ Segen Bu sun wenn nur Pe 





Be Ba Be a ara 
a u u = a an 
a a a = Be ea 
Ba en an en en aan 
nn ann na rn Er te P Dre 
A ii 





Speicherkapazität 1 MB, (formatiert 640 KB} jetzt fürnur ....... N) 
“= 
TEACFD55 AV 1x40 Track .... ee u... 460,- 


TEACFDS5SEV1x80Track .... 445.- TEACFDSSFV2x80 Track .... 
Apple®- kompatibles Laufwerk incl. Gehäuse + Kabel 


320 KB Laufwerk für IIC ................. 948,- 
640 KB Laufwerk fürllic................ 1088,- 


PanasonicDrucker:: 1090 .......... nur 849,- 
1091 BIRNEN, nur 1095, - 1092 EEE > nur 1295, - 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2 x 1 MByte formatiert: 2 x 
640 kByte. Anschlußfertig mit PROM-residenter 
Patchsoftware für CP/M 2.2, Apple DOS 3.3, Di- 
versiDOS 2-C, 4-C (DD MOVER), Apple Pascal 
1.1, Pascal 1.2, Pro-DOS 1.0.1 


LU um Preisvon ..... ER 1498,- 


Low Power Version .... 222222... 1598, - 


10 MB Winchester 


mit Software für DOS 3.3, CP/M 2.20, Pascal, Pro-DOS, 3980 = 
inch. Controler und Gehäuse RE ee meer rg er er ep er era PIPRPAPRT 








Sonderangebot 
Distar Laufwerk .„ı.. ,349.- 
ine»KabelunGehäuser m Tree jetzt nur f) 


Gesamt-Preisliste anfordern! 
Händlerpreisliste bitte schriftlich anfordern! 


IB] NICH-1/-Yargelsle- 


Holtewiese 2 
5750 Menden ] 


Preise inclusive gesetzlicher Mehrwertsteuer. 


DFÜ 02373/66877 
LMGPEYETZITL, 





ie 





Dividenden (DD) und Spalte 3. den Shift- 
Quotienten (Q). 


0. Block: Wir initialisieren R auf 0000, tra- 
gen DD ein und löschen Q. Damit die 
Schiebetechnik besser auffällt, schreiben 
wir x statt 0. 


1. Block: Wir schieben DD um eine Stelle 
nach links in R hinein [<-]. Damit kommt 
die 3 als höchste Stelle von 3150 in die 
niedrigste Stelle von R. Nunmehr subtra- 
hieren wir 

0003 - 0025 = OR 0003, 

schieben das Stellenergebnis O (daher nur 
O und nicht 0000) von rechts in Q hinein 
und übernehmen 0003 als R in die nächste 
Zeile. 


Block 2: Wir schieben wieder DD um eine 
Stelle nach links in R hinein. Nunmehr 
subtrahieren wir 

0031 - 0025 = 1 R 0006, 

schieben das Stellenergebnis 1 von rechts 
in Q hinein und übernehmen 0006 als R in 
die nächste Zeile. 


Block 3: Wir schieben wieder DD um eine 
Stelle nach links in R hinein. Nunmehr 
subtrahieren wir 

0065 - 0025 - 0025 = 2 R 0015. 

Wie ersichtlich, muß die 0025 hier zweimal 
subtrahiert werden. Bei Dezimalzahlen 
muß O-9mal, bei Binärzahlen nur O-1mal 
subtrahiert werden. Auch wenn wir mehr- 
fach subtrahieren müssen, ist das Ergeb- 
nis trotzdem stets einstellig. Deshalb 
schieben wir auch hier das Stellenergeb- 
nis 2 von rechts in Q hinein und überneh- 
men 0015 als R in die nächste Zelle. 


Block 4: Auch hier ist die Prozedur wieder 
dieselbe, wobei allerdings nunmehr das 
Stellenergebnis 6 beträgt. R ist nachher 
0000, und damit geht die Division insge- 
samt ohne Rest auf. 

Selbst wenn wir, z.B. bei der Aufgabe 
3151 : 0025 = 0126 R 0001, 

einen Rest vorgefunden hätten, wäre die 
Division jetzt beendet, weil der Dividend 
bereits 4mal nach links geschoben worden 
ist. 


Algorithmus in Kurzform 

Schritt 1: Rest und Quotienten auf 0 
setzen. 

Schritt 2: Dividenden von rechts nach links 
um eine Stelle in den Rest hineinschieben. 
Schritt 3: Subtraktion von Rest minus Divi- 
sor durchführen. Stellenergebnis der Sub- 
traktion von rechts nach links in den Quo- 
tienten hineinschieben sowie neuen Rest 
eintragen. 

Schritt 4: Prüfen, ob bereits sooft linksver- 
schoben worden ist, wie der Dividend 
Stellen hat. Wenn nein, dann zurück zu 
Schritt 2. Wenn ja, dann Enae. 
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6.2. Binäre Division 


Die binäre Division läßt sich haargenau wie 
die genormte dezimale Division durchfüh- 
ren. Es gibt nur eine kleine und zugleich 
erfreuliche Besonderheit: Das Stellener- 
gebnis ist höchstens 1, und deshalb muß 
der Divisor vom jeweiligen Rest auch 
höchstens ein einziges Mal subtrahiert 
werden. Eine x-durch-x-Bit-Division be- 
steht damit aus exakt 


x Linksverschiebungen von DD und R 

x Subtraktionen von R und DR 

x Linksverschiebungen von Q, 

wobei gleichzeitig entweder O oder 1 als 
Stellenergebnis von rechts in Q hineinge- 
schoben wird. 


Könnte das Stellenergebnis nicht doch 
einmal größer als 1 sein? Betrachten wir 
hierzu die nachstehende Division: 


Eiger: 7T= 
1010 


IR 4 
olll = 0001 R 0100 
R-DR DD e) 

0000 1011 xxXxX O; 








0001 
0111 
0001 


IE A IESN 





0010 
olll 
0010 


Tl 1 AM 


0101 
oıll 
0101 


I ı A 


Wir haben also 4mal schieben müssen, 
bevor eine Subtraktion, nämlich die letzte, 
„aufging“. Wenn Sie ähnliche Beispiele 
ausprobieren, werden Sie feststellen: 

Die höchste Einserbit-Stelle des momen- 
tanen Rests kann die höchste Einserbit- 
Stelle des Divisors höchstens um eine 
einzige Stelle überragen, weil die Division 
durch O verboten ist und somit der Divisor 
stets größer als 1 ist. Wenn dann der Divi- 
sor vom momentanen Rest abgezogen 
werden kann, wird die besagte Einserbit- 
Stelle beim neuen Rest eliminiert. Wenn 
umgekehrt der Divisor nicht vom momen- 
tanen Rest abgezogen werden kann, dann 
muß es sich um den Rest nach der letzten 
Linksverschiebung handeln. Damit ist je- 
doch gleichzeitig die Division beendet. 


Nachfolgend bringen wir ein komplizierte- 
res Beispiel 

dezimal 65535 : 17 = 3855 Rest O 

für eine Binärdivision, wobei wir die Zah- 
lenkolonnen nach der 6502-Division in 
Abschnitt 6.3 anordnen. Es bedeuten 

R = Rest 

S = Shift-Dividend 


D = Divisor 

Q = Quotient 

t = Es wurde imal subtrahiert. 

Wenn der Rest kleiner als der Divisor ist, 
wird die (versuchte) Subtraktion nicht an- 
gezeigt und der Rest sofort weiterver- 








schoben. 

R 00000000 00000000 S 11111111 11111111 
R 00000000 00000001 S 11111111 11111110 
D 00000000 00010001 Q xxxxxxXX XXXXXXXÜ 
ER: 00009000.000000117 8 1111114117 11311100 
D 00000000 00010001 Q xxXxxxxxX XXxXxXXX00 
R 00000000 00000111 S 11111111 11111000 
D 00000000 00010001 Q xxxxxxxX XXxxx000 
R 00000000 00001111 S 11111111 11110000 
D 00000000 00010001 Q xxXxxxxxx XxXxx0000 
RB 00000000. 00011111 5 1111111. 17190009 
D 00000000 00010001 Q xxxxXxxx xxx00001 
= 00000000 00001110 T 
R 00000000 00011101 S 11111111 11000000 
D 00000000 00010001 Q xxxxxxxx xx000011 
= 00000000 00001100 T 
R 00000000 00011001 S 11111111 10000000 
D 00000000 00010001 Q xxxxxxxx x0000111 
= 00000000 00001000 1 
R 00000000 00010001 S L1111111 00000000 
D 00000000 00010001 Q xxxxxxxx 00001111 
= 00000000 00000000 t 
R 00000000 00000001 S 11111110 00000000 
D 00000000 00010001 Q xxxxxxx0 00011110 
R 00000000 00000011 S 11111100 00000000 
D 00000000 00010001 Q xxxxxx00 00111100 
R 00000000 00000111 S 11111000 00000000 
D 00000000 00010001 Q xxxxx000 01111000 
R 00000000 00001111 S 11110000 00000000 
D 00000000 00010001 Q xxxx0000 11110000 
R 00000000 00011111 S 11100000 00000000 
D 00000000 00010001 Q xxx00001 11100001 
= 00000000 00001110 T 
R 00000000 00011101 S 11000000 00000000 
D 00000000 00010001 9 xx000011 11000011 
= 00000000 00001100 1: 
R 00000000 00011001 S 10000000 00000000 
D 00000000 00010001 Q x0000111 10000111 
= 00000000 00001000 T 
R 00000000 00010001 S 00000000 00000000 
D 00000000 00010001 Q 00001111 00001111 
= 00000000 00000000 ii 


6.3. 6502-Division 


Bei der nachfolgenden Version 1 einer 16- 
durch-16-Bit-Division (D16V1) lassen sich 


folgende Schritte hervorheben: 


Schritt 1: Quotient und Rest werden auf O 
gesetzt und der Dividend wird in einen 
Shift-Dividenden dupliziert, damit der ur- 
sprünglich Dividend erhalten bleibt. 
Schritt 2: Vorab wird geprüft, ob der Divi- 
sor 0 ist. Wenn ja, wird die Routine sofort 
verlassen. 

Schritt 3: Da der Dividend 16 Bits umfaßt, 
wird der Bit-Zähler auf 16 gesetzt. Der Bit- 
Zähler richtet sich nach dem Dividenden 
und wäre deshalb bei einer 16-durch-8- 
Bit-Division ebenfalls 16. 

Schritt 4: Der Shift-Dividend wird von 
rechts nach links in den Rest hineinge- 
schoben. 

Schritt 5: Dann wird geprüft, ob die Sub- 
traktion von Rest minus Divisor ohne 
Überlauf möglich ist. Im Falle eines Über- 
laufs ist C = O, sonst C = 1. 

Schritt 6: Wenn ja, wird die Differenz von 
Rest und Divisor als neuer Rest gespei- 
chert. 
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Schritt 7: Das Ergebnis der erfolgreichen 
(C = 1) oder erfolglosen (C = 0) Subtrak- 
tion wird von rechts in den Quotienten 
hineingeschoben. 

Schritt 8: Der Bit-Zähler wird dekremen- 
tiert und auf O überprüft. Wenn noch nicht 
alle 16 Bits abgearbeitet worden sind, 
kehrt die Programmschleife zu Schritt 4 
zurück. 


D16 Vi 

T ORG $0300 

2 * 

3 * D16 Version 1 

4 * — 

5 JMP Sl 

6 * Dividend 

% DDL HEX FF 

8 DDH HEX FF 

9 * Divisor 

10 DRL HEX OF 

11 DRH HEX 00 

2 * Quotient 

13 QL HEX 00 

14 OH HEX 00 

15 * Rest 

16 RL HEX 00 

alte RH HEX 00 

18 * Shift-Dividend 

19 SDDL HEX 00 

20 SDDH HEX 00 

2] * Bit-Zähler 

22 BITS HEX 00 

23 *=1.0=0,R=0, SDD = DD 

24 Sl LDX #1 

23 S1lA LDA #0 

26 STA QL,X 

er sIA Rl,x 

28 LDA DDL,X 

29 STA SDDL,X 

30 DEX 

5, BFL’ SIA 

32 * 2. DR = 0? 

33 S2 LDA DRL 

54 ORA DRH 

35 BEQ 59 

36 * 3. Bit-Zähler auf 16 

It Ss LDA #16 

38 STA BITS 

39 * 4, <-- SDDH-SDDL-O links 

40 S4 ASL SDDL 

4l ROL SDDH 

42 * AA. <— RH-RL-C links 

45 SAA ROL RL 

44 ROL RH 

45 * 5, R - DR >= 0? 

46 Sie, SEC 

47 LDA RL 

48 SBC DRL 

49 TAX 

50 LDA RH 

Sl SBC DRH 

52 BER ISr G=0! 

2 * 6. Wenn ja, R=R-DR 

54 Ss6 SsIX RL ‚c=l! 

55 STA RH 

56 * 7, und <— OH-QL-C links 

57 37 ROL QL 

58 ROL OH 

59 * B, Bit-Zähler = 0? 

60 38 DEC BITS 

6l BNE S4 

62 * 9. Ende (auch bei DR=0)} 
| 63 5a RTS 


Die analoge Version 2 (D16V2) überträgt 
den Dividenden nicht in einen gesonder- 
ten Shift-Dividenden, sondern in den Quo- 
tienten. Dies ist möglich, weil mit jeder 
Linksverschiebung des „Quotienten“ = 
Shift-Dividenden das rechte, nullte Bit frei 
wird und somit das Carry-Flag der erfolg- 
reichen/erfolglosen Subtraktion aufneh- 
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men kann. Wegen des INC-Befehls in Zei- 
le 53 ist Version 2 geringfügig langsamer. 
Die Peeker-Sammeldisk enthält außerdem 
die „getunten” Versionen 3 (D16V3) und 
4 (D16V4), von denen Version 4 ca. 25% 
schneller ist. Das zusätzliche Programm 
D24AV2 ist eine 24-durch-24-Bit-Division 
nach dem Algorithmus von Version 2. Fer- 
ner sind auf die Sammeldisk die Demos 
DIV16.DEMO und DIV24.DEMO aufge- 
nommen worden, die den internen Re- 
chenprozeß Schritt für Schritt in Form von 
Binärzahlen anzeigen und sich deshalb 
besonders für die Schule eignen. 


ORG $0300 


DIS Version 2 


JMP Sl 
Dividend 
DDL HEX FF 
DDH HEX FF 
* Divisor 
DRL HEX OF 
DRH HEX 00 
* Quotient 


OO 4090 BUND 


00 
HEX 00 


00 
HEX 00 
* Bit-Zähler 
BITS HEX 00 
*1. R=-0,9=-DD 
Sl LDX #1 
S1lA LDA #0 
STA RL,X 
LDA BDDL,X 
5SITA OL,X 
DEX 
BEL -SIA 
* 2. DR = 0? 
S2 LDA DRL 
ORA DRH 
BEQO S9 
* 3. Bit-Zähler auf 16 
LDA #16 
STA BITS 
<-—- OH-QL-0 links 
ASL OL 
ROL QH 
* AA. <——- RH-RL-C links 
S4AA ROL RL 
ROL RH 
* 5. R- DR >= 0? 
eis) SEC 
LDA 
SEC 
TAX 
LDA 
SEC 
BCC 
« Wenn ja, 
STX 
STA 
;„ und QL = 
ING 
‚ Bit-Zähler = 0? 
DEC BITS 
BNE S4 
. Ende (auch bei DR=0} 
RTS 
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Auf der Sammeldisk #14 befinden sich 
diverse Assemblerprogramme (mit Big- 
Mac-Quelltexten) und Demos zu diesem 


GRUNdlAGEN 9.4 


Beitrag, wobei die mit RUN gekennzeich- 
neten Applesoft-Demos die jeweils nach- 
folgenden Maschinenprogramme starten: 


Multiplikationsprogramme 
M3TEST (RUN) 

T.M8RLN und M8RLN 
T.M8LRN und M3LRN 
T.M38RLT und M3RLT 
T.M8LRT und M3LRT 
M16TEST (RUN) 
T.MI6RLN und MI6RLN 
T.MI16LRN und MI6LRN 
T.M16RLT und MI6RLT 
T.M16LRT und MI6LRT 
MULTSRLN.DEMO (RUN) 
T.MULT8RLN und MULT8RLN 
MULT16RLN.DEMO (RUN) 
T.MULT16RLN und MULTI6RLN 
Divisionsprogramme 
DI6TEST (RUN) 

T.D16V1 und D16V1 
T.D16V2 und D16V2 
T.D16V3 und D16V3 
T.D16V4 und D16V4 
D24TEST (RUN) 

T.D24V2 und D24V2 
DIV16.DEMO (RUN) 
T.DIV16 und DIV16 
DIV24.DEMO (RUN) 
T.DIV24 und DIV24 


A. 


DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler ge- 
schriebenes, ungewöhnlich schnelles, un- 
kompliziertes und zugleich „narrensicheres" 
AdreßB-, Datei- und Schemabriefprogramm. 
Technische Daten 
Recordlänge bis zu 230 Zeichen 
560 bis 1000 Records pro Datendiskette 
Maximal 25 Felder pro Record 
Suche nach 3 Indexfeldern 
Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta- 
tureinschüben an beliebigen Stellen des 
Formbriefes) 
normal kopierbare Programmdiskette, un- 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 
— einsatzfähig auf Apple Ile und Ile mit 
2 Drives (1 Drive ebenfalls möglich) 


Gesamtpreis 290,- (2 Disketten + ge- 
drucktes Manual) 

U. Stiehl 

c/o Dr. A. Hüthig Verlag 

Postfach 10 28 69 - 6900 Heidelberg 
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Ein intelligenter 


Aufbau und Arbeitsweise des Megaboards 
von Dr.-Ing. T. Mulica 
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1. Einführung 


Die optimale Ausnutzung der Möglichkei- 
ten eines Mikrocomputers ist im wesentli- 
chen von den angeschlossenen periphe- 
ren Geräten abhängig. Die externen Spei- 
chermedien des Rechners spielen dabei 
eine wichtige Rolle. Es ist unschwer einzu- 


Harddisk-Controller 


sehen, daß die Verwendung eines Floppy- 
Disk-Laufwerkes anstelle eines Kasset- 
tenrecorders für die kleinen Rechner ganz 
neue Anwendungsgebiete eröffnet hat. 
Mit dem Einzug der Mikrocomputer-Soft- 
ware in immer speicherintensivere An- 
wendungsgebiete, z.B. Textverarbeitung, 
Datenbanksysteme oder Grafik, sind die 
Anforderungen an die Speicherkapazität 
und die Zugriffsgeschwindigkeit der exter- 
nen Speichermedien ständig gestiegen. 
Um diesen gewachsenen Bedürfnissen 
Rechnung zu tragen, wurde für die Mikro- 
computer in den letzten Jahren eine neue 
Generation von Massenspeichern entwik- 
kelt. Es handelt sich dabei um die Fesitplat- 
tenlaufwerke (Winchester-Laufwerke, 
Harddisk-Laufwerke), die dem Benutzer 
einen sicheren, komfortablen und vor al- 
lem schnellen Zugriff zu den abgespei- 
cherten Datenmengen gewährleisten. 


Bei vielen in den letzten Jahren entwickel- 
ten Mikrocomputern gehört die Festplatte 
bereits zur Standardausrüstung. Aber 
auch die „älteren“ Rechner lassen sich 
mit der Festplatte nachrüsten. Diese 
Nachrüstung eröffnet dem Benutzer einen 
besseren und komfortablen Einsatz der 
am Markt eingeführten Standard-Software 
oder eigener Programme. 

Besonders schwierig war die Lage der Ap- 
ple-Besitzer mit den weitverbreiteten Ge- 
räten Apple Il, II+, Ile und Kompatiblen. 
Der apple-eigene Standard für den An- 
schluß von Floppy-Disk-Laufwerken und 
das eigene Datenaufzeichnungsformat er- 
schwerte selbst den einfachen Anschluß 
von Laufwerken mit einer größeren Spei- 
cherkapazität. Es gibt zwar zur Zeit die 
Möglichkeit, durch den Kauf eines speziel- 
len Controllers (z.B. von den Firmen Erphi 
oder Ehring) Nicht-Apple-Standard-Lauf- 
werke anzuschließen, jedoch bringt diese 
Lösung keine Verbesserung der Zugriff- 
zeiten. 

Um Apple-Benutzern auch den Anschluß 
eines Winchester-Laufwerkes an ihren 
Rechner zu ermöglichen, wurde auf dem 
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deutschen Markt von der Firma „Frank & 
Britting” der Intelligente Apple-Harddisk- 
Controller „Megaboard“ entwickelt. Die- 
ser Controller kann direkt an den Apple- 
Bus angeschlossen werden und erlaubt 
dem Anwender, den Speicherplatz des an 
den Controller angeschlossenen Lauf- 
werks zwischen den vier gängigsten Ap- 
ple-Betriebssystemen DOS 3.3, CP/M 
2.2, UCSD-Pascal 1.1 und ProDOS zu 
teilen. Die Firmware des Controllers ent- 
hält alle Treiberroutinen, die für die Anpas- 
sung der 0,9. Beiriebssysteme an das 
Harddisk-System nötig sind. Das „Einbin- 
den“ dieser Routinen in das Originalbe- 
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Firmware: 
EPROM 





Decodier-und Steuerlogik 






Scraftch- 
RAM 





2. Wichtigste Anforderungen 


An die Entwicklung des Harddisk-Control- 
lers wurden folgende Anforderungen ge- 
stellt: 


1. Der Benutzer kann nach eigenem 
Wunsch den zur Verfügung stehenden 
Speicherplatz der Harddisk auf die vier 
Betriebssysteme (DOS 3.3, CP/M 2.2, 
UCSD-Pascal 1.1, ProDOS) verteilen. 


2. An den Controller können Laufwerke 
mit verschiedenen Speicherkapazitäten 
angeschlossen werden. 
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Die Entwicklung eines solchen Controllers 
erfordert die Realisierung der dazu benö- 
tigten Funktionen durch Hard- und Soft- 
ware-Komponenten. 


3. Hardware-Aufbau 


Die komplette Hardware des Controllers 
wurde auf einer Platine untergebracht, die 
einen Apple-Slot belegt. Den prinzipiellen 
Aufbau des Controllers zeigt Abb. 1. 


Der Anschluß an den Rechner erfolgt über 
einen 5Opoligen direkten Stecker (1). Der 
Controller belegt den für Slot 7 reservier- 
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Abb. 1: Blockschaltbild des Apple-Harddisk-Controllers (die durch Kreise bezeichneten Ziffern sind im Text durch runde Klammern 


gekennzeichnet) 


triebssystem erfolgt automatisch während 
des Boot-Vorgangs. Dieser Boot-Vorgang 
von der Harddisk wird durch ein spezielles 
Firmware-Programm gesteuert, das auch 
gleichzeitig die notwendigen Modifikatio- 
nen („Patches“) des betroffenen Be- 
triebssystems durchführt. An das Mega- 
board können verschiedene Harddisk- 
Laufwerke angeschlossen werden, die 
über eine Standard-ST-506-Schnittstelle 
sowie bis maximal 8 Köpfe und bis maxi- 
mal 1024 Zylinder verfügen. 

Die interessantesten Aspekte, die bei der 
Hardware- und Software-Entwicklung des 
Apple-Harddisk-Controllers auftraten, sind 
das Hauptthema dieses Beitrags. 
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3. Die Umschaltung zwischen den ver- 
schiedenen Betriebssystemen erfolgt auf 
Software-Basis, 

4. Die Anpassung des jeweiligen Betriebs- 
systems an die neue Umgebung (Hard- 
disk-System) erfolgt automatisch beim 
Boot-Vorgang, so daß das Boot-Volume 
immer eine Originalversion des Betriebs- 
systems enthält. 

5. Die Betriebssystem-Änderungen und 
-Erweiterungen sollen keinen Einfluß auf 
die Größe des Arbeitsspeichers des Rech- 
ners haben. 

6. Bei jedem Betriebsssystem ist es mög- 
lich, einen Mischbetrieb Floppy-Disk/ 
Harddisk durchzuführen. 


ten Adreßbereich $COFO-$COFF und 
$0700-$C7FF sowie zusätzlich den sog. 
„VO-Expansion-Adreßbereich“  $C800- 
$SCFFF. Die entsprechende Hardware- 
Schaltung zum Ein- und Ausblenden die- 
ses eventuell auch von anderen Periphe- 
riekarten verwendeten Zusatzbereiches ist 
vorhanden. Der Adreßbereich $C700- 
$CFFF wurde zwischen Firmware-EPROM 
(2) und Scratch-RAM (3) wie folgt aufge- 
teilt: 

$C700-$C07FF- EPROM 

$C800-$C9FF - RAM 

$CA00-$CFFF- EPROM 

Um den nötigen Speicherplatz für die 
Controller-Firmware zur Verfügung zu 
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stellen, wird der Speicherbereich $CAOO- 
$CFFF in zwei Bänke aufgeteilt. Die Aus- 
wahl der entsprechenden Bänke erfolgt 
durch das Lesen von zwei Adressen 
$COF2 (Bank 0) und $COF3 (Bank 1). 

Die Hauptaufgabe der Controller-Firmware 
ist es, eine Software-Schnittstelle zu 
schaffen, die den Zugriff der Apple-Be- 
triebssysteme auf der Harddisk ermög- 
licht. Die von der Firmware benötigten 
Daten werden im Controller-RAM (3) ab- 
gespeichert. 

Wegen der hohen Datenübertragungsge- 
schwindigkeit zwischen der Harddisk und 
dem Controller (5 MBits/s) müssen fast 
alle Funktionen, die diesen Übertragungs- 
prozeß steuern, durch die Hardware über- 
nommen werden. Um trotzdem eine kom- 
pakte Lösung des Controllers zu errei- 
chen, wurde der hochintegrierte Hard- 
disk-Controller--Chip WDiO10 (5) von 
Western Digital eingesetzt. Dieser Bau- 
stein übernimmt die meisten Funktionen, 
die für die Harddisk-Ansteuerung sowie 
die Datensicherung auf der Platte notwen- 
dig sind. Das Interface zwischen dem 
Host-Prozessor und dem WD1010 besteht 
aus dem 8 Bit breiten Datenbus, über den 
die Daten, Parameter und Status-Informa- 
tionen übertragen werden. Die Kommuni- 
kation zwischen dem Rechner und dem 
Harddisk-Controller erfolgt über 8 Regi- 
ster, die 8 Adressen ($COF8-$COFF) im 
Speicherraum des Prozessors belegen. 
Diese Register sind wie folgt definiert: 





m 





m 


Lesen Schreiben 
SCOF8 Data Register Data Register 
ScOF9 Error Register Write Precompensation 
$COFA Sector Count Sector Count 
$COFB Sector Number Sector Number 
$cOoFC Cylinder Low Cylinder Low 
$COFD Cylinder High Cylinder High 
$COFE SDH Register SDH Register 
SCOFF Status Register Command Register 


a —— 








-— [1  ——-..0 


Die genaue Beschreibung dieser Register 
sowie die Programmierungserläuterungen 
findet der Leser in <1>. 

Die Programmierung des Controllers wird 
durch die leistungsfähigen Befehle des 
WD1010 vereinfacht. Soll der Controller 
z.B. einen Datensektor (256 Bytes) auf die 
Platte schreiben, so muß man zuerst die 
entsprechenden Sektor-, Zylinder- und 
Kopfnummern spezifizieren und diese In- 
formationen durch die Beschreibung des 
Sektor-, Zylinder- und SDH-Registers an 
den Controller übergeben. Das Command 
Register muß mit dem Schreibbefehl gela- 
den werden (Code $30). Der Rechner 
kann jetzt durch das Lesen des Status- 
Registers feststellen (DRQ Bit im Status- 
Register gesetzt), daß der Controller auf 
die Datenübertragung zwischen dem Be- 
triebssystem-Datenpuffer und dem inter- 
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nen Controller-Datenpuffer wartet. Der 
Controller-Datenpuffer besteht aus einem 
statischen RAM (6), dessen Adressen 
durch einen Zähler (7) erzeugt werden. 
Dadurch erscheint dieses RAM nach au- 
Ben als FIFO-Speicher. Der Zugriff des 
Rechners auf den Controller-Datenpuffer 
erfolgt über das Daten-Register ($COF3). 


Hat der Rechner den Datenpuffer vollge- 
schrieben, so wird durch die Steuerungs- 
logik (8) ein Signal (BRDY) erzeugt, das 
den WD1010 über dieses Ereignis infor- 
miert. Der WD1010 fängt automatisch an, 
die Daten aus dem Datenpuffer zu lesen 
und in entsprechend kodierter Form 
(MFM, s. Peeker, Heft 3/85, S. 10) auf die 
Harddisk zu übertragen. Die Umwandlung 
der im Datenpuffer abgespeicherten Daten 
in den MFM-Datenstrom sowie CRC- und 
Daten-Adreßmarkengenerierung findet in 
dem Chip statt. Während dieses Vorgangs 
muß der interne Datenbus des Controllers 
von dem Host-Datenbus isoliert werden. 
Dazu ist auf der Platine ein Daten-Treiber 
(4) vorgesehen, der sich in diesem Zeitbe- 
reich in einem hochohmigen Zustand be- 
findet. Das durch den WD1010-Chip er- 
zeugte Signal (BCS) informiert die Steue- 
rungslogik darüber, wann der interne 
Datenbus des Controllers isoliert sein 
muß. 


Solange der Controller mit der Ausführung 
des Befehls beschäftigt ist, wird das Busy 
Bit (Bit 7) im Status-Register gesetzt. 
Nach der Beendigung jedes Befehls wird 
dieses Bit zurückgesetzt. Die restlichen 
Bits des Status-Registers informieren den 
Rechner in diesem Fali über den Zustand 
des Laufwerks und über den Verlauf der 
Befehlsausführung. Sollte bei der Befehls- 
ausführung ein Fehler aufgetreten sein, so 
wird das letzte Bit (Bit 0) des Status-Regi- 
sters gesetzt. Die Art des Fehlers kann der 
Rechner durch das Lesen des Fehlerregi- 
sters erkennen. 


Die von dem WD1010-Chip benötigte ex- 
terne Logik auf der Laufwerksseite kann 
man in vier Teile gliedern: 


— Treiber und Empfänger für Laufwerks- 
Steuer-, Status- und Daten-Signale (9, 10, 
el): 

— Vorkompensationsschaltung (13) 

— Daten-Synchronisationsschaltung (14) 
— Data-Recovery-Schaltung (15) 


— Die Aufgabe der Treiber und Empfänger 
ist es, die nötigen Signale zwischen dem 
Controller und dem Laufwerk aneinander 
anzupassen (z.B. muß das TTL-Datensi- 
onal WD1 durch einen Differential-Treiber 
(11) in ein Differential-Signal umgewandelt 
werden). 


-— Die Vorkompensationsschaltung wird 
von dem WD1010-Chip durch die vier Si- 
gnale RWC, WG, EARLY und LATE ge- 
steuert. Sie verschiebt den von dem 
WD1010 erzeugten Datenstrom gegen- 
über der Nominalposition, je nach dem 
Datenmuster und der Position des 
Schreib/Lesekopfes. Diese Verschiebung 
ist besonders auf den inneren Spuren des 
Laufwerks nötig. Der Benutzer kann jeder- 
zeit bei der Harddisk-Initialisierung einge- 
ben, ab welchem Zylinder die Vorkompen- 
sation stattfinden soll. 


— Die Aufgabe der Daten-Synchronisa- 
tionsschaltung ist es, einen Lese-Takt 
(RCLK) für den WD1010 zu erzeugen, der 
mit den MFM-Rohdatenimpulsen, die bei 
einer Leseoperation von der Festplatte 
kommen, synchronisiert ist. Diese Schal- 
tung wird durch ein RG-Signal von dem 
WD1010 gesteuert. 

Die eigentliche Decodierung und Umset- 
zung der MFM-Daten in parallele Form 
sowie die Überprüfung der CRC-Bytes fin- 
det in dem WD1010 statt. Der Chip er- 
zeugt auch die entsprechenden Signale, 
die den Datentransfer zwischen dem 
Datenpuffer und dem Chip ohne jeglichen 
Eingriff des Rechners ermöglichen. 


— Die Data-Recovery-Schaltung informiert 
den WD1010-Chip über das Auftreten ei- 
nes Nullmusters im MFM-Datenstrom. 
Entdeckt diese Schaltung ein Nullmuster, 
so aktiviert sie das WD1010-Eingangssi- 
gnal {DRUN). 


4. Software-Komponenten 


Nachdem im vorherigen Abschnitt in er- 
ster Linie über den Hardware-Aufbau des 
Harddisk-Controllers gesprochen wurde, 
wollen wir nun die für den Einsatz des 
Controllers notwendige Software erläu- 
tern. Bevor man Daten mit dem Harddisk- 
System verarbeiten kann, muß das Hard- 
disk-Laufwerk für die Datensicherung vor- 
bereitet und die ursprünglichen Betriebs- 
systeme modifiziert, d.h. um einige hard- 
disk-spezifische Programmteile erweitert 
werden. Die dazu notwendige Software 
kann man grob gesehen in zwei Pakete 
teilen: 

1. Das Software-Paket, das die Vorberei- 
tung des Harddisk-Laufwerks für die 
Datensicherung unterstützt. 

2. Das Software-Paket, das ständig im 
EPROM des Controllers vorhanden ist 
(Firmware). 


4.1. Vorbereitung der Harddisk 


Der Vorbereitungsprozeß sollte qgrund- 
sätzlich nur bei der allerersten Inbetrieb- 
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e CP/M Plus System für Apple //e, c 


— CIRTECH CGP/M Plus Modul mit Betriebssystem CP/M 3.0 


— Z80H mit 8MHz, 128K RAM, Drucker-Spooler mit 12K RAM. 

— Kompatibel zu CP/M 2.20 und 2.23. Volle Maus-Funktion. 

— Einsatz von: WORDSTAR, dBASE, MBASIC, PASCAL etc. 

K010 Apple //c GP/M Plus System DM 949,00 
Kö11 WORDSTAR/MAILMERGE und K010 DM 1399,00 
KO12 Apple //e GP/M Plus System DM 599,00 
K013 WORDSTAR/MAILMERGE und K012 DM 999,00 
K019 Apple //c CP/M Modul V. 2.23 0. Betr. Sys. DM 398,00 


e 1 MB RAM Karte für Apple //+, e 


— CIRTECH FLIPPER Karte wird komplett mit 1 MB RAM geliefert. 

— Super schneller Datenzugriff. Max. 6 MB RAM pro Apple //, 

— 100 % Kompatibel mit PRODOS (Appleworks), DOS, PASCAL, CP/M. 
— Kein 'patchen’ notwendig, Einsatz in jedem Slot möglich. 

K070 Apple //+, e Flipper Karte mit 1 MBRAM. DM 1798,00 


e Champion Karte für Apple //+, e 


— CIRTECH Parallele Text- und Grafik-Druckerkarte komplett mit Kabel, 
— Mit 16K oder 64K RAM Puffer, 40/80 Zeichen Dump. 
— Einsatz von DOS, PRODOS (Appleworks), PASCAL, CP/M. 
— Volle Apple //e Graphik, Serieller Ausbau möglich, 
K030 Apple //+, e Champion Interface 
K031 Apple //+, e Champion Interface 

f. Imagewriter DM 335,00 
K032 Apple //+, e Champion Interface 16K RAM DM 459,00 





DM 250,00 


K033 Apple //+, e Champion Interface 64K RAM DM 599,00 


Alle Preise inkl. MwSt. Auf alle Produkte 12 Monate Garantie. 
Neuen Katalog anfordern. Händleranfragen willkommen! 
Wir sind General-Importeur von CIRTECH-Produkten. 


M.Semjan 
Computer Systeme 


Postfach 90 01 64 - 6000 Frankfurt/M 90 
Tel. 069-70 1853 - Mo-Fr 10.30-15 Uhr 
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brauchen 
Apple Kick 


© es zu jeder Zeit aul Tastendruck zur Verfügung steht, ohne Ihr momentanes Programm zu stören 

® es keinen Platz wegnimmt, weder auf Ihrem Schreibtisch, noch in Ihrem Programmspeicher und 
sich auf dem Bildschirm aul Windows beschränkt 

© auf einmal Ihr Textverarbeitungsprogramm rechnen und Ihr Kalkulationsprogramm Texte ertas- 
sen und übernehmen kann 

® erst durch die Kombination von Rechner, Terminkalender, Notizbuch, ASCII Tabelle, Funk tions- 
tasten, Drucker-Buffer, Screendump .... Ihre Anwendersoftware benutzerfreundlicher wird. 

Der Apple Kick läuft auf einem Apple //e //c mit 128k Ram, CP/M 2.0, 2,2B, 2.23, 2,24 

In Vorbereitung: Basis 108 mit CP/M 2 oder CP/M 3,0 sowie Apple //e mit CP/M 3,0 


Sie erhalten: 
Demokick: DM 10 (wird bei Kauf verrechnet) 
Apple Kick: DM96 


mit: Taschenrechner mit 4 Grundrechenarten, Hex, Bin, Oct, Dez, ASCH-Tabelle, 128 frei belegba- 
ren Funktionstasten (abspeicherbar), Macros, Drucker-Buffer und Funktionen, Screen-Dump. Aus- 
führliches Handbuch. 


Apple Kickt: DM245 
mit: dito, Terminkalender, Notizbuch mit fullsereen Editor, Filer (dir, type, era, rename, Hexdump, 


Laufwerkskonfig. ändern), Telefonverzeichnis, Schreibmaschinenfunktionen, erweiterten speicher- 
resistenten CCP sowie DIR-Command mit free, search path. 


Ausführliche Infos in der Mailbox M.A.U,S. 0251/7522790 (300 Baud 8n 1) oder Info-Blatt anfordern! 


Programmierer, die die Software auf andere Rechner anpassen wollen, werden unterstützt ! 
Nachträgliche Änderungen in der Ausstattung vorbehalten! 


Weitere Produkte: sehr komfortable Mailbox mit Protokollübertragung (s.0,), Window Routinen, Ei- 
genständiger Editor, einzelne Module von Apple Kick auf Anfrage. 


Apple ist e. W2, von Apple ine. 
| CP/M ie. Wr. von Digital Reseärch 
Sielekick ist e. Wi. von Borland International 


0251/5322784 
EI 0251/5322790 (300 Baud an) 


Die schafft Ordnung! 


Ihre Sammelkassette für einen Jahrgang >» peeker «. 


Sie ist praktisch 
und von 
bleibendem Wert. 
Bewahren Sie 
Ihren »peeker« 
griffbereit 

darin auf. 

Der Einzelpreis 
einer Kassette 
beträgt DM 16,80 
(inkl. Mwst.) plus 
Versandkosten. 


Bestellen Sie bitte bei: 
» peeker « Leserservice : 
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nahme des Harddisk-Systems durchge- 
führt werden. Dieser Prozeß besteht aus 
drei Stufen: 


a) Initialisierung der Harddisk; 

b) Konfiguration der Harddisk; 

c) Übertragung der Betriebssysteme auf 
die Harddisk. 


Der Initialisierungsvorgang hat folgende 
Aufgaben: 


— Die Parameter des Laufwerks (z.B. Än- 
zahl der Köpfe, Anzahl der Zylinder usw.), 
die für die spätere Speicherverwaltung be- 
nötigt werden, sind zu erfassen. Diese 
Parameter müssen vom Benutzer einge- 
geben werden. 

—- Alle Spuren der Harddisk müssen forma- 
tiert werden. Die Spuren werden dabei in 
Sektoren aufgeteilt, wobei jeder Sektor 
aus einem Identifikationsfeld (ID-Feld) und 
einem 256 Bytes langen Datenfeld be- 
steht. 

— Dann wird überprüft, ob die während des 
Formatierungsvorgangs auf die Harddisk 
geschriebene Information lesbar ist. 

— Für die Spuren, die aus irgendeinem 
Grund beschädigt und deshalb unlesbar 
sind, werden Ersatzspuren erstellt. Diese 
Ersatzspuren befinden sich natürlich an 
einer anderen (vom System reservierten) 
Position auf der Platte. Um diese Ersatz- 
spuren bei Bedarf wiederzufinden, wird 
eine Tabelle (Ersatz-Track-Tabelle) erstellt 
und auf der Harddisk abgespeichert. Sollte 
die ganze Platte mehr als 32 defekte Stel- 
len haben, läßt sich das Harddisk-Lauf- 
werk nicht initialisieren. 

— Einrichten eines DOS-Volumes auf der 
Harddisk. Auf diesem Volume werden die 
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‚EP/M-Konfig: 
Rrogramm. 


Konfiguration- 
Hauptprogramm 


‚Konfig.-Programm 


| Berechnung des Parameters 
der Organisationstabelle und 
Abspeicherung auf der Harddisk 


Hilfsprogramme abgespeicheri, die für die 
weitere Arbeit mit der Harddisk notwendig 
sind. 


Alle Programme, die den Initialisierungs- 
vorgang unterstützen, sowie weitere Hilfs- 
programme befinden sich auf einer DOS- 
Diskette, die zusammen mit dem Control- 
ler geliefert wird. 


Nach Beendigung des Initialisierungsvor- 
gangs kann man die Harddisk booten und 
ein Hilfsprogramm starten, das die Konfi- 
guration der Harddisk ermöglicht. Wäh- 
rend dieses Vorgangs kann der Benutzer 
den auf der Harddisk verfügbaren Spei- 
cherplatz den vier implementierten Be- 
triebssystemen zuordnen. Außerdem 
kann festgelegt werden, welches Be- 
triebssystem beim Einschalten des Rech- 
ners booten soll. Die vom Benutzer defi- 
nierte Speicheraufteilung wird durch das 
Konfigurationsprogramm in einer Tabelle 
(Organisationstabelle) erfaßt und am Ende 
der Konfiguration auf der Harddisk abge- 
legt. Bei dem Aufteilungsprozeß müssen 
selbstverständlich die spezifischen Eigen- 
schaften des jeweiligen Betriebssystems 
berücksichtigt werden (s.u.). 


Die letzte Stufe des Vorbereitungsprozes- 
ses wird auch teilweise durch das Konfigu- 
rationsprogramm unterstützt, Hier werden 
die Betriebssystemdisketten auf die ent- 
sprechenden Harddisk-Bereiche kopiert. 
Die Struktur des Konfigurationspro- 
gramms zeigt Abb. 2. 


Eine denkbare Harddisk-Speicherorgani- 
sation nach der Konfiguration istin Abb. 3 
dargestellt. 












Betriebssystem, 
Copy-Programme 


‚Boot-Konfig, 
Programm 








Abb. 2: Struktur des Konfigurationsprogramms 
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Abb. 3: Mögliche Speicherorganisation 
der Harddisk 


Während des Vorbereitungsprozesses 
werden auf der Harddisk wichtige Informa- 
tionen über die Charakteristik und Spei- 
cherorganisation der Platte abgespeichert. 
Für diese Informationen wurden einige 
Spuren reserviert, die in Zukunft für den 
Benutzer unzugänglich sind, jedoch später 
durch die Treiberroutinen des Controllers 
ständig gebraucht werden. 

Nachdem am Ende des Konfigurationsvor- 
gangs die im Grunde genommen „floppy- 
orientierten“ Betriebssysteme auf die 
Harddisk übertragen worden sind, wollen 
wir jetzt die Software-Teile besprechen, 
die für die Anpassung der Beiriebssyste- 
me an die neue „Harddisk-Umgebung" 
verantwortlich sind. Diese Routinen sind 
im EPROM des Controllers abgespeichert 
und stehen dem Rechner jederzeit zur 
Verfügung. 


4.2. Firmware-Routinen 


Die Betriebssysteme DOS, CGP/M, UCSD- 
Pascal und ProDOS wurden im Apple un- 
ter ganz bestimmten Voraussetzungen be- 
züglich des Formats der externen Spei- 
chermedien implementiert. Aus diesem 
Grund erfordert jeder Anschluß von exter- 
nen Datenträgern, die nicht dem Apple- 
Standard entsprechen, eine Reihe von Än- 
derungen und Ergänzungen der Betriebs- 
systeme. Ein solcher Fall liegt insbeson- 
dere beim Anschluß eines Harddisk-Lauf- 
werks vor. 

Um die Hard/Software-Schnittstelle des 
Harddisk-Controllers zu bedienen, müs- 
sen für jedes Betriebssystem neue Hard- 
ware-Treiberroutinen geschrieben wer- 
den. Wegen der größeren Speicherkapazi- 
tät der Harddisk ist es auch erforderlich, 
die Dateiverwaltung der Betriebssysteme 
zu modifizieren, damit von dem erweiter- 
ten Speicherangebot Gebrauch gemacht 
werden kannn. Zusätzlich muß die Tatsa- 
che, daß der Speicherplatz auf dem Hard- 
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disk-Laufwerk auf vier verschiedene Be- 
triebssysteme verteilt sein kann, beim 
Umrechnungsalgorithmus der logischen 
/O-Disk-Parameter (z.B. Block-Nummer 
bei UCSD-Pascal) in die physikalischen 
Parameter (z.B. Sektor-, Zylinder- und 
Kopfi-Nummer), die zur Ansteuerung des 
Controllers notwendig sind, berücksichtigt 
werden. 


Bei all diesen Eingriffen in das jeweilige 
Betriebssystem ist unter anderem darauf 
zu achten, daß der für die Anwenderpro- 
gramme nutzbare RAM-Speicherbereich 
des Rechners durch die neu hinzugefüg- 
ten Routinen nicht eingeengt wird, An- 
dernfalls wäre die Verträglichkeit mit grö- 
Beren Anwenderprogrammen gefährdet, 
die von der Floppy-Diskette auf die Hard- 
disk kopiert wurden. Aus diesem Grund 
wurden fast alle diese Programmerweite- 
rungen in einem Controller-EPROM abge- 
speichert. Auch das von diesen Program- 
men zusätzlich benötigte RAM befindet 
sich auf der Controller-Platine. 


Ein weiteres Problem entsteht beim „Ein- 
binden” der für die Harddisk benötigten 
Software-Erweiterungen in das Original- 
Betriebssystem. Beim allgemein üblichen 
Verfahren wird das Original-Betriebssy- 
stem im Speicher des Rechners geändert 
und in geänderter Form auf die Spuren 
des Boot-Volumes abgespeichert. Dieses 
Verfahren ist jedoch in unserem Fall aus 
mehreren Gründen ungeeignet: Erstens 
kann die Charakteristik des an den Con- 
troller angeschlossenen Harddisk-Lauf- 
werks verschieden sein, und zweitens 
wird die Speicherkapazität für das jeweili- 
ge Betriebssystem erst durch den Benut- 
zer festgelegt. Bei der Vielzahl der mögli- 
chen Systemkonfigurationen würde eine 
Unmenge „neuer" Betriebssystem-Va- 
rlanten entstehen. 


Es ist daher günstiger, ein anderes Verfah- 
ren zu verwenden, um das Original-Be- 
triebssystem zu modifizieren (patchen). 
Bei diesem Verfahren enthalten die Hard- 
disk-Boot-Volumes immer die Originalver- 
sion des Betriebssystems. Erst beim Boo- 
ten (nur von der Harddisk) führt ein spe- 
zielles Hilfsprogramm (Autopatch-Boot- 
Programm) die nötigen Betriebssystem- 
Modifikationen durch. Dabei wird zuerst 
die Information über die Konfiguration und 
Charakteristik des Laufwerks von der 
Harddisk gelesen und dementsprechend 
automatisch die nötigen Software-Ände- 
rungen des Betriebssystems ausgeführt. 
Am Ende dieses Boot-Vorgangs befindet 
sich im Speicher des Rechners eine Be- 
triebssystem-Version, die genau an die 
Parameter des vorhandenen Speicherme- 
diums angepaßt ist. Das Autopatch-Boot- 
Programm befindet sich auch im EPROM 
des Controllers. 
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Abb. 4: Blockschaltbild der Hardware-Trei- 
berroutinen 


Zur Zeit werden die vier Apple-Betriebssy- 
steme DOS 3.3, CP/M 2.2, UCSD-Pascal 
1.1 und ProDOS beim Boot-Vorgang auto- 
matisch erkannt und modifiziert. 

Die Firmware kann man in zwei Gruppen 
teilen: 

1. Programme, die unabhängig vom jewei- 
ligen Betriebssystem arbeiten. 

2. Programme, die eine spezifische Form 
für jedes Betriebssystem haben. 


4.2.1. Betriebssystem-unabhängige 
Routinen 


Jedes Betriebssystem muß letztendlich 
Daten auf der Platte abspeichern und von 
der Platte lesen können. Wie schon bei der 
Hardware-Beschreibung angedeutet wur- 
de, braucht man dazu entsprechende Pro- 
gramme, die für die Ansteuerung der Con- 
troller-Hardware verantwortlich sind. Zu 
dieser Gruppe gehören die Programme 
der niedrigsten Ebene, z.B. das Pro- 
gramm, das einen Datensektor auf die 
Harddisk schreibt. Diese Routinen müs- 
sen vor allem die Hardware-Eigenschaften 
des Controllers berücksichtigen. Die nöti- 
gen Eingangsparameter werden durch die 
betriebssystem-abhängigen Firmware- 
Routinen geliefert. 

Das Blockschaltbild dieser Routinen ist in 
Abb. 4 dargestellt. 


4.2.2. Betriebssystem-abhängige Rou- 
tinen 


Zu dieser Gruppe gehören die Autopaich- 
Boot-Programme sowie die Programme, 
die ein Software-Interface zwischen dem 


und dem Controller 





Abb. 5: Allgemeine Struktur des Auto- 
patch-Boot-Programmes 
v 
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Verkauf Hardware 


Wegen HB-Disk 2 Pr. FD-LW 
zu verk. FD55FV a) LW 300 + 


MIT4853 a) DM 250--, Tel. 
08231/31625 vorm. 10-12 Uhr 


Apple Ilc (12/85), 640K, Z80, 
Monitor, Maus, Joystick, Hotlin K 
u.a. Software, DM 4500,-, 

Tel. 07156/27451 nach 19 Uhr 


Apple Ile, Ilc Mac und Apple- 
Zubehör — Bei uns sind Sie an der 
richtigen Adresse. 

Kostenlos Preisliste anfordern! 
Welz Electronic, Tel. 04192/4628 


Plotter, Flachbrett DIN A1 
RS 232 V24/Centr. VHB DM 3500. 
Seelig, Fahltskamp 75d, 2080 Pinne- 
berg 


Apple Ii-Nachbau (COSMO) 
kompl. mit Laufwerk, Bildsch., 
Controller u. Handbuch zu verk. 
DM 1150,- (NP: ca. 1900,-—), 
Tel. 06446/1657, Biebertal 


Z80H (AP22) 8MHZ komplett 
neu zu verkaufen. Preis VHB 
Tel. 07324/8584 ab 18 Uhr 


Verkaufe Ramworks und Z- 
RAM Speichererweiterung zu 
Apple lle/c, Preise auf Anfrage. 
Musicomp, Basler Str. 52, CH-4102 
Binnigen, Schweiz, 

Tel. 061 /47 8934 nachm. 


****x*x* Apple lle/+ xxxxxx* 
512K RAM-DISK für DOS + GP/M 


Lehrplatine + Software 99,- DM 
Bestückt (ohne Ram’s) 199,- DM 
Norbert Menke, Tel. 05251/25887 
Kilianstr. 32, 4790 Paderborn 


lie, 9 Mon. alt, 128K, 2 
Laufw. J-Stick, viel Software + 
Literatur VB 3500,— mit Imagewri- 
ter, 3 Mon. alt DM 4800,-,, 

Tel. 02365/26095 ab 17.00 Uhr 


Tintenstrahldrucker Siemens 
PT88 und PREH-Tastatur preis- 
wert zu verkaufen, 

Tel. 0208/805808 


Apple Ilc, Monitor, Joystick, 
div. Softw. u. viele Bücher VB DM 
1800,—, Tel. 0721/752973 


Epson Grafikinterfaceumbau 
8132W für AppleWorks ab DM 20,—. 
Mahr, Waldacker 71, 7300 Esslingen 


Macintosh 128 auf 512KB 


DM 399,-, Fa. Schlösser, 
Tel. ab 17.00 089/985889 
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8-Zoll Laufwerke zu verkau- 
fen, 2 Doppelkopf LW mit Contro- 
ler und Software, L. Schulz, 

Tel. 07245/4786 


68000 mit 512K (AP20) für 
CPIM68K, mit Pseudodisk, DM 
1090,- CP/M 4, 5x schneller, 
Z80H (AP22), 64K, Software, DM 
550! Tel. 0551/76426 


Apple lic (1 Jahr alt) + Maus 
+ Joystick + 15 Disketten mit Org. 
Software (z.B. Summer Games + 
Time Zone + Mousepaint + FRZ. 
Lernprogramm...) für DM 2050,-, 
Tobias Ladewig, Tel. 0791 /462950 


Apple II+ (komp) IBM-Look 
Prof. Aufbau, 2 x 80 Spur (TEAC), 
Z80, 80 Zeichen, Druckerinterface, 
Boss-Tast. Monitor, Bücher, div. 
extra (FF-Cards, Prommer, etc.) 
Preis VHB, Tel. 07324/8584 ab 
18 Uhr 


Apple Ilc Paket 2. LW, Maus, 
Imagewriter, bernst. 12. Monitor, 
100 Disk., 5 dtsch. Handbücher. 
Preis DM 4400,-, 

Tel. 07 11/607 1288. 


Apple lic, Monitor + Moni- 
torstand, 2. Laufw., NZ80llc- 
Karte, IIc-Lit. von M&T-Verlag, nur 
komp!i., Verk. DM 3200,— evtl. + 
Imagewriter (DM 1000,;-), 

Tel. 02651/42627 


Apple Superseriel DM 250,— 


Neucom Parallel DM 100,-, Ep- 
son CX-21 DM 400,-, Fischer-In- 
terface DM 180,-, und Computing 
DM 180,-, Tel. 07171/89898 


Apple-lic + Imagewriter + 
Maus + 2. Laufwerk + Software 
+ Literatur + TAXAN Monitor VB 
DM 4200,-, Tel. 0721/32583, 
Karlsruhe 


Apple Il (comp.), 64 K, Moni- 
tor, FDC4, 80Z, Z80, Uhr, 
Sprachk,, Joystick, FD-55F, PALK. 
UHF Mod., Eprommer, Drucker- 
karte, massig Software u. Literatur 
DM 2600,- nach 18 Uhr, 

Tel. 02461/51832 


Verkaufe Apple Ile m. 
Drucker 2 LW Monitor, v. Software, 
Preis a. Anfrage, Tel. 089/325481 


Ankauf Hardware 


Suche MAC 512 + ext. LW + 
Software bis DM 5.500,-, Bilger, 
Altenbergstr. 62, 7000 Stuttgart 1, 
Tel. 607 1288 


| Verkauf Software 


Apple Il Public Domain, DFÜ- 
Prog. Kermit je Volume DM 15,- 
Lehrerprogramme, Graphikspra- 
che „Minilogo“, Gratisinfo: Fa. 
Waltraud Muhle, Waldwinkel 3, 
2105 Seevetal 3 


Progr. zur Verwaltung und 
grafischen Darstellung (Kurven, 
Trendanalyse) von Börsenkursen. 
DM 50,-, Info unter 
Tel. 0380/7520194 


— — — STARTUP 1.0 — — — 
Universelles Begrüßungsprogramm 
unter ProDOS für Apple Ilc bzw. Ile 
+ 80 Zeichen. Assemblerprogr. 
mit vielen Features: Online, Prefix 
setzen, Subdirectory- und Pro- 
grammaufruf bis zu 128 Z., usw. 
Bedienung des Leuchtzeiger-Me- 
nus mit Tastatur oder Joystick. 
Disk DM 39,90 incl. Source DM 69 
zzgl. DM 4,50 Versandk. Info ge- 
gen Freiumschlag: M. Lindemann, 
Mallinckrodt 162, 4600 Dortmund 1 


Verk. ORCA/M (ProDOS) DM 
310,—, PRINT SHOP DM 75,-, 
ASMBL-Kurs DM 35,-, BEAGLE 
Graph DM 190,-, extra K DM 
100,-, GPLE DM 140,- -Orig. - 
Tel. 04531/85075 ab 20 Uhr 


Software Uhr für Apple |!l+, e, 
c, Zeitschaltmöglichkeit Diskette + 
Anleitung DM 25,- Oecking 

Tel: Do. 02317/391920 


P-Code DISASSEMBLER DM 
50,—, System Patch — Info: K. Seiler, 
Willy-A.-Allee 1, 7500 Karlsruhe 


MerlinPro DOS/ProDOS-Ass,, 
neu, Fullscr.-Ed. für 128K-Apple 
DM 360,— (NP 490,—,), 
Tel. 0041 61/633585 


Apple Il: Verkaufe und er- 
stelle Software. Info gegen 0,80 
DM in Briefmarken bei W. Rittmeyer, 
Wehrbruchweg 30, 4060 Viersen 1 


Einkommen-Lohnsteuer 1985 
Apple-Disk. DM 45,-, Dipl.-Fin. Wirt. 
Uwe Olufs, 5216 Niederkassel 2, 
Bachstr. 70, Tel. 02208/4815 
abends 


Für Basis 108!! 

DOS Mover, FP Autoboot (kein Pre 
Boot mehr für BASIC) gg. DM 40,- 
Real, Dorstener 67, 4660 Gelsen- 
kirchen-Buer 


PEEkER 499994 


Super-Datenbank DATA-BOSS 
und andere Änwenderprogr., E. 
Heinz, Waldgürtel 7, 5060 B-Glod. 1 


Pauker: Latein DM 40, 
VOK. DM 25,— 
Heinz, Waldgürtel 7, 5060 B-Gild. 1 


| Ankauf Software | 


Suche Adventure für Apple 
lle, Tel. 04654 /265 


Verschiedenes 


APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642 aaad 


Für Apple Ii+: Als CP/M+ 
Card 699 Oki ML 80 499. Org. 
Apple 2 SW: ORCA/M 2489. Merlin 
149. MAB 6502 Debugger 99. Bag 
of Tricks 49. H. Jung, Masurenstr. 
11, 7120 Bietigheim-Bissingen 


Suche Kontakt zu lle-User 
im GR-Hannover! 

Tel.051 71/53346, ab 19.00 Uhr 
11! Da gibt’s was umsonst !!!! 
4 x im Jahr den neuen Katalog. 


Bühler Elektronik, Postfach 32, 
7570 Baden-Baden 


Anzeigen- 
schluß 
für 
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ist am 
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Vertrauensgarantie: 
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daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verag GmbH, Postfach 
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Für Ihre Unterlagen 
Folgende Bücher bestellt: 





2 Bitte senden Sie mir gegen Rechnung folgende Bücher: 
LI Bühler, Applesoft-BASIC, LI Kehrel, Apple Assembler lernen, Ba. 2, 
O 3-7785-1094-0, DM 38,— 3-7785-1170-X, ca. DM 38,— 
L] Eggerich, dBase Il, Bd. 1, [| Schäpers, ProDOS Analyse, 
N 3-7785-1147-5, DM 39,80 3-7785-1134-3, DM 68,— 
[| Eggerich, dBase Il, Bd. 2, [] Schäpers, Bewegte Apple-Graphik, 
I 3-7785-0987-X, DM 39,80 3-7785-1150-5, DM 58,— 
DL] Eggerich, dBase II, Bd. 3, I] Stiehl, Apple DOS 3.3, 
o 3-7785-0988-8, ca. DM 40,- 3-7785-1297-8, DM 28,- 
[I Gabriel, Applewriter, U Stiehl, Apple ProDOS, Bad. 1, 
am: O 3-7785-1234-X, DM 35,— 3-7785-1098-3, DM 28,— 
zn } [J Hagemüller, Microsoft-BASIC, Bd. 1, U Stiehl, Apple ProDOS, Bd. 2, 
bei: 3-7785-1038-X 3-7785-1036-3, DM 30,- 
ed U] Juhnke/Redlin, Apple Pascal, Bd. 1, OD Stiehl, Apple Assembler, 
3-7785-1246-3, ca. DM 40,- 3-7785-1047-9, DM 34,— 
Peeker | LI] Kehrel, Apple ne! lernen, Bd. 1, [I Wassermann, Apple Ilc Handbuch, 
Versandbuchhandlung 3-7785-1151-3, DM 38, 3-7785-1157-2, DM 35, 
Postfach 102869 
6900 Heidelberg 1 Datum 2 Unterschrift — 
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Folgende Disketten 
und Programme bestellt: 
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© Bitte senden Sie mir gegen Rechnung folgende Disketten: 
vw UL] Peeker-Sammeldiskette, einzeln L[] ProDOS-Editor 1.0, Programm, DM 98,- 
eo Disk# _ _____—_, Disk# U] MMU 2.0, Programm, DM 98,— 
Disk# ______, Disk# [I INPUT 2.0, Programm, DM 98,- 
SL Peeker je Disk DM 28,— (einzeln) L] Softbreaker 1.0, Programm, DM 48, — 
U EI Foaker Ssammeldiekette, [I DB-Meister, Programm, DM 290, 
L] Superplot, Programm, DM 48,— 
® im Fortsetzungsbezug 
Yamı AbDIK L] Superquick, Programm, DM 48,- 
O (Mindestbezug 6 Disketten) I Turtle Graphics, Programm, DM 98,- 
am: Bu [] Kyan-Pascal 2.0, Programm, DM 170,- 
bei: [1 Apple DOS 33 Begleitdisk., DM 28,- DO Fast-Writer, Programm, DM 98,- 
2 [I ProDOS, Band 1, Begleitdisk., DM 28,- 
Peeker OÖ 7 ProDOS, Band 2, Begleitdisk., DM 28,- 
Softwareabteilung 92) LI Apple Assembler, Begleitdisk., DM 28,- 
Postfach 102869 
6900 Heidelberg 1 e Datum u Unterschrift 





INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 
| für DOS 3.3 und ProDOS 
| von U. Stiehl 


POSTK ARTE 1984, Diskette und Manual, DM 98,- 


ISBN 3-7785-1021-5 
„Input 2.0“ liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
A8K aufgerufen. 
Für jedes Feld der Bildschirmmaske lassen 
sich u. a. definieren: Feldiänge (bis zu 255 
Ich wünsche jährliche Berechnung durch: Peeker Zeichen) — Vtab — Htab — Datentyp (insge- 
LI Verlagsrechnung [1 Abbuchung von samt 8 Typen) - Scrollflag (starre oder dyna- 
meinem Bank- bzw. Leserservice mische Maske) — Ctriflag — Füllflag — Lösch- 
Postscheckkonto flag — Bildschirmflag (40- oder 80-Z-Darstel- 
ee lung). Innerhalb eines Eingabefeldes besteht 
Dr. Alfred Hüthig Verlag GmbH jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 


Gerätevoraussetzung: Apple Ile oder Ilc; fer- 
Bankleitzahl Postfach 102869 ner Apple II+ im 40-Zeichenmodus 


6900 Heidelberg 
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MMU 2.0 


Memory Managements 
Utilities 

für die Apple lle 64K-Karte 

DOS 3,3 (und ProDOS) 


POSTK ARTE von U. Stiehl 


Vorname, Name 1984, Diskette und Manual, DM 98,— 
ISBN 3-7787-1023-1 





Karte bitte vollständig ausfüllen 








Karte 








g Firma Insgesamt enthält die neue „MMU 2.0"- 
Diskette über 25 Programme, die neue 
N Peeker Einsatzmöglichkeiten für die Extended 80 
| = 2 Column Card (erweiterte 80-Z-Karte = 
© Buchabteilung 64K-Karte für den Apple Ile) erschließen. 
=) Ein Teil der Programme laufen auch auf 
nn Straße Dr. Alfred Hüthig Verlag dem Appte Ii Plus, doch ist „MMU 2.0" 
.n) primär für 64K-Karte-Besitzer gedacht. 
En En Gerätevoraussetzung: Apple Ile mit 64K- 
an Postfach 102869 ur 
F 6900 Heidelberg 1 
Telefon mit Vorwahl 





Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utillty 
für die Apple lle 64K-Karte 


von U. Stiehl 


1984, Diskette und Manual, DM 48,- 
ISBN 3-7785-1022-3 





Karte bitte vollständig ausfüllen 
2 Softbreaker ist ein Ässemblerprogramm, mit 


dessen Hilfe Programme, die sich von der 

64K-Karte (= Extended 80 Column Card für 

a POSTKARTE den Apple Ile) starten lassen, unterbrochen, 

Vorname, Name gespeichert, geladen und exakt an der Stelle 

der Unterbrechung fortgeführt werden kön- 

nen. Dadurch ist es auch möglich, Siche- 

Firma rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 

Peeker Mit Softbreaker unterbrochene Programme 

werden komplett, d. h. die ganzen 64K ein- 


Softwareabteilu NO schließlich Language Card, in nur ca. 11 Se- 


kunden auf einer formatierten Diskette gesi- 
E ee chert. 
ass Dr. Alfred Hüthig Verlag Gerätevoraussetzung: Apple Ile mit 64K- 
Karte, nicht IIc, nicht neue ROMs 


PLZ/On | Postfach 10 2869 Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 
6900 Heidelberg I 











Telefon mit Vorwahl 


= 
S 
y 
5 
° 
Y 





jeweiligen Betriebssystem und den unter- 
sten Controller-Treiberroutinen schaffen. 
Diese Programme müssen die spezifi- 
schen Eigenschaften der Betriebssysteme 
berücksichtigen. Genaue Kenntnisse über 
die Arbeitsweise, Speicherorganisation 
und Struktur des Betriebssystems sind bei 
der Entwicklung dieser Programmen uner- 
läßlich. 

Wie schon angedeutet, übernimmt das 
Autopatch-Boot-Programm die Kontrolle 
über das Laden des Betriebssystems und 
führt dabei einige Änderungen aus. Am 
Ende des Ladevorganges befindet sich im 
Rechner eine Betriebssystem-Variante, 
die gleichzeitig mit der Floppy- und Hard- 
disk arbeiten kann. 

Grob gesehen setzt das Autopatch-Boot- 
Programm im Original-Betriebssystem an 
einigen Stellen Sprungbefehle bzw. Un- 
terprogrammaufrufe ein, die dem Be- 
triebssystem den Zugriff auf die entspre- 
chenden Harddisk-Treiberroutinen ermög- 
lichen. 

Die allgemeine Struktur des Autopatch- 
Boot Programmes ist in Abb. 5 dargestellt. 
Die nötigen Modifikationen sind vom je- 
weiligen Betriebssystem abhängig und 
müssen daher für jedes Betriebssystem 
getrennt betrachtet werden. Wir wollen 
uns dabei nur auf die grundsätzlichen Ide- 
en der erforderlichen Betriebssystem-Än- 
derungen und -Ergänzungen beschrän- 
Ken. 


5. Die einzelnen Betriebssysteme 


5.1. DOS 3.3 


Die ursprüngliche Version des DOS 3.3 ist 
für die Verwaltung von Disketten mit einer 
Speicherkapazität von 143K vorgesehen. 
(Anm.: Wenn IK = 1024 Byies, dann ex- 
akt 140K; wenn IK = 1000 Bytes, dann 
ca. 143K.) Durch die einfachen Modifika- 
tionen <2> des INIT-DOS-Befehles las- 
sen sich die Verwaltungsmöglichkeiten 
des DOS-File-Managers bis auf 400K er- 
weitern. Datenträger, die eine größere 
Speicherkapazität haben, können unter 
DOS 3.3 nicht mehr in Form einzelner 
geschlossener „Volumes“ organisiert 
werden. Es taucht somit bei der Verwen- 
dung eines Festplattenlaufwerks die erste 
Frage auf: Ist es überhaupt möglich, eine 
viel größere Speicherkapazität der Fest- 
platte unter DOS 3.3 vollständig auszunut- 
zen? Diese Frage läßt sich mit „ja“ beant- 
worten. Man zerlegt den für DOS zugeteil- 
ten Speicherplatz auf der Harddisk in klei- 
nere Einheiten. Diese Speichereinheiten 
können bis zu A00K groß sein und müssen 
so organisiert werden, daß sie vom DOS- 
File-Manager als getrennte Floppy-Disket- 
ten betrachtet werden können. 
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Sollten „Harddisk-Speichereinheiten", die 
größer als 143K sind, verwaltet werden, so 
sind einige Änderungen im DOS-File-Ma- 
nager notwendig. Dies kann zu einigen 
Inkompatibilitäten der vorhandenen DOS- 
Utility-Programme führen. Darum ist es 


140 KByte 
140 KByte 


Harddisk -DOS-Bereich 





Abb. 6: Aufteilung des DOS-Bereichs auf 
der Harddisk 


von DOS-Speichereinheiten selektieren 
zu können, müssen diese durch die Ver- 
wendung eines weiteren DOS-Befehlspa- 
rameters, nämlich der Volume-Nummer, 
kodiert werden. Diese Kodierung ist in 
Abb. 6 dargestellt. 


Die Kodierung sowie die Verteilung der 
Speichereinheiten auf der Harddisk über- 
nimmt die entsprechende Software des 
Controllers,. 

Bei der Berücksichtigung der oben ge- 
nannten DOS-Organisation lassen sich die 
für die Harddisk erforderlichen DOS-Pat- 
ches auf die RWTS-Ebene beschränken. 
Das Betriebssystem muß nun vor allem 
um die an den Harddisk-Controller ange- 
paßte RWTS erweitert werden, die sich im 
EPROM des Controllers befindet (d.h. Ori- 
ginal-RWTS für Floppy-Zugriff und 
EPROM-RWTS für Harddisk-Zugriff). 

Um diese Routinen im Original-Betriebs- 
system zu integrieren, muß das DOS-Au- 
topatch-Boot-Programm einige Verzwei- 
gungen im RWTS-Bereich einsetzen, die 
bei jedem Zugriff auf die Harddisk die ent- 
sprechenden EPROM-RWTS-Routinen 
aufrufen. Beim Zugriff auf das Floppy- 
Laufwerk müssen die „alten“ RWTS-Rou- 
tinen verwendet werden, die sich im 
Apple-RAM befinden. Abb. 7 zeigt die ge- 
patchte DOS-Version. 
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Abb. 7: Allgemeine Struktur der gepatchten DOÖS-Version 


vorteilhafter, die Speichereinheitsgröße 
bei 143K zu belassen. 

Hat man auf der Harddisk mehrere 143K- 
Einheiten eingerichtet, so muß dafür ge- 
sorgt werden, daß diese Einheiten vom 
Benutzer gezielt angesprochen werden 
können. Die DOS-Befenlstruktur erlaubt 
lediglich das Ansprechen von zwei Lauf- 
werken. Um dennoch eine größere Anzahl 


Die Struktur der Harddisk-RWTS-Routinen 
wird einerseits durch die Software- 
Schnittstelle des File-Managers und ande- 
rerseits durch die Hard/Software-Schnitt- 
stelle des XControllers bestimmt. Die 
Schnittstelle zum File-Manager ist stan- 
dardisiert und z.B. in <3, 4> ausführlich 
beschrieben. Die Parameterübergabe er- 
folgt dabei durch den 17 Bytes langen 
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Input/Output-Control-Block (IOB). Vor je- 
dem Anruf der RWTS-Routinen setzt der 
DOS-File-Manager einige Bytes in den 
IOB ein (z.B. Drive-, Volume-, Sektor- 
Nummer, Adresse des internen Datenpuf- 
fers sowie Command Code). Diese Para- 
meter stellen die Eingabeparameter für die 
RWTS-Routinen dar. Die RWTS führt den 
angegebenen Befehl aus und informiert 
den File-Manager über den Ausführungs- 
zustand. Diese Information wird durch die 
Beschreibung des Fehler-Bytes im IOB an 
den File-Manager übermittelt. Der grund- 
sätzliche Unterschied zwischen der Hard- 
disk- und Floppy-Disk-RWTS besteht in 
der Umrechnung der logischen (durch den 
File-Manager gelieferten) /O-Disk-Para- 
meter in die physikalischen Werte. 

Bei der Berechnung einer physikalischen 
Harddisk-Track-Nummer müssen z.B. fol- 
gende Parameter berücksichtigt werden: 
— logische Track-Nummer im IOB 

— Volume-Nummer im IOB 

— Anzahl der Köpfe des Laufwerks 

— Anfang-Track für das angesprochene 
Volume 

— Ersatz-Track-Tabelle 

Die letzten drei Parameter wurden wäh- 
rend des Einrichtungsvorgangs auf der 
Harddisk gespeichert und stehen dem Be- 
rechnungsprogramm jederzeit zur Verfü- 


gung. 
Die allgemeine Struktur der Hardaisk- 
RWTS-Routinen zeigt Abb. 8 
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Abb. 8: Allgemeine Struktur der Harddisk- 
RWTS-Routinen 


5.2. CP/M 2.2 


Um den Betrieb mit der Harddisk zu er- 
möglichen, sind beim Betriebssystem CP/ 
M 2.2 eine Reihe von Änderungen und 
Ergänzungen notwendig. Die modulare 
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Struktur dieses Betriebssystems erlaubt 
jedoch, die notwendigen Eingriffe auf die 
BIOS-Ebene zu beschränken. 

Die ursprüngliche Version des GP/M 2.2 
ist imstande, bis zu sechs Floppy-Disk- 
Laufwerke zu verwalten, wobei jedes Lauf- 
werk dieselbe Charakteristik besitzen 
muß. Daher wurde im BIOS nur ein einzi- 
ger Disk Parameter Block (DPB) vorge- 
sehen. 

Um den für das CP/M-2.2-Betriebssystem 
auf der Harddisk verfügbaren Speicher- 
platz optimal (nach dem Wunsch des Be- 
nutzers) ausnutzen zu können, müssen 
folgende Voraussetzungen erfüllt werden: 
1. Der Benutzer kann den für CP/M 2.2 
vorgesehenen Speicherplatz auf der Hard- 
disk auf bis zu sechs getrennte Volumes 
teilen. 

2. Die Größe des Harddisk-Volumes soll 
variabel bleiben. 

3. Die vom CP/M 2.2 verwalteten Volumes 
kann der Benutzer beliebig zwischen 
Harddisk-Volumes und Floppy-Disk-Volu- 
mes teilen. 

Will der Benutzer z.B. in Zukunft nur mit 
zwei Floppy-Disk-Laufwerken arbeiten, 
dann können die restlichen vier Volumes 
der Harddisk zugeordnet werden. 

Ein Beispiel der externen Speicherorgani- 
sation für CP/M 2.2 ist in Abb. 9 darge- 
stellt. 

Die Verwaltung von Nicht-Standard-Volu- 
mes unter CP/M 2.2 ist nur dann möglich, 
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Abb. 9: Beispiel einer externen Speicher- 
organisation für das CP/M-2.2-Betriebssy- 
stem 


wenn für jede vorgesehene Volume-Grö- 
Be ein entsprechender DPB vorgesehen 
ist. Die Parameter des DPB charakterisie- 
ren das Speicher-Volume für das Be- 
triebssystem und müssen an die Größe 
des Volumes angepaßt werden <5>. Die 





DPBs für die verschiedenen Volume-Grö- 
Ben sind im Harddisk-Controller-EPROM 
abgespeichert. Der Zugriff des Betriebssy- 
stems auf den DPB erfolgt über einen 
Pointer, der sich in dem Disk Parameter 
Header (DPH) des entsprechenden Volu- 
mes befindet. Es ist die Aufgabe des Auto- 
patch-Boot-Programms, diese Pointer so 
zu setzen, daß sie auf die Adressen der 
entsprechenden DPBs im Controller- 
EPROM zeigen. Bei der Verwaltung von 
größeren Volumes müssen auch die Poin- 
ter in den DPHs, die auf die Allocation- 
Vektoren (ALV) zeigen, verändert werden. 
Das Autopatch-Boot-Programm muß auch 
die BIOS-Jump-Tabelle so „verbiegen”, 
daß bei jedem Zugriff auf die Harddisk 
deren Treiberroutinen angesprungen wer- 
den. In allen diesen Routinen müssen bei 
der Berechnung der physikalischen Disk- 
Parameter nicht nur die BIOS-V/O-Disk- 
Parameter berücksichtigt werden, sondern 
auch die internen Harddisk-Informationen, 
die während des Vorbereitungsprozesses 
auf der Harddisk abgespeichert wurden. 


5.3. Apple-UCSD-Pascal 1.1 


Im Vergleich zu den DOS- und CP/M- 
Apple-Betriebssystemen ist das Apple- 
UCSD-Pascal-Betriebssystem viel flexi- 
bler, wenn es um die Verwaltung von ex- 
ternen Speichermedien im „Nicht-Apple- 
Standard“ geht. Bei UCSD-Pascal sind die 
externen Speichermedien in Form von 
kontinuierlich durchnumerierten 512- 
Byte-Blöcken organisiert <6>. 

Obwohl die gesamte Anzahl der Blöcke, 
die von UCSD-Pascal auf einem Volume 
verwaltet werden kann, sehr groß ist 
(65536), gibt es andere Beschränkungen, 
die eine optimale Ausnutzung von sehr 
großen Volumes unmöglich machen (so ist 


z.B. die maximale Anzahl! von Directory- 


Einträgen für ein Volume auf 77 begrenzt). 
Darum erweist es sich in vielen Fällen 
vorteilhaft, den gesamten für UCSD-Pas- 
cal auf der Harddisk reservierten Spei- 
cherplatz auf mehrere Volumes zu vertei- 
len. Dabei muß man berücksichtigen, daß 
die maximale Anzahl von Pascal-Volumes 
auf sechs begrenzt ist. Bei der Anpassung 
des UCSD-Pascal-Betriebssystems an 
das Harddisk-System müssen deswegen 
folgende Voraussetzungen erfüllt werden: 
— Der Benutzer kann den für den UCSD- 
Pascal reservierten Speicherplatz auf bis 
zu sechs getrennte Volumes verteilen. Die 
Volumes können verschiedene Speicher- 
Kapazitäten haben. 

— Die Volumes können beliebig zwischen 
Harddisk- und Fioppy-Disk-Volumes ge- 
teilt werden. 

Die Größe sowie die physikalische Plazie- 
rung der Volumes wird in der Harddisk- 
Organisationstabelle während des Konfi- 
gurationsvorgangs abgespeichert. 
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Die tatsächliche Anzahl der Blöcke, die auf 
einem bestimmten Volume Platz finden, 
wird beim Schreiben des Volume-Directo- 
ry abgespeichert (dafür sorgt das Pascal- 
Konfigurationsprogramm) und kann daher 
bei Bedarf jederzeit vom Betriebssystem 
abgerufen werden. 

Die nötigen UCSD-Pascal-Erganzungen 
erstrecken sich im wesentlichen auf die an 
den Harddisk-Controller angepaßten Pas- 
cal-Disk-I/O-Routinen (BIOS). Diese Rou- 
tinen sind im EPROM des Controllers ab- 
gespeichert. 

Das Autopatch-Boot-Programm muß dafür 
sorgen, daß für jedes Harddisk-Volume 
die Adresse des Harddisk-Treibers in der 
Treiber-Adreßtabelle vorhanden ist. In die- 
ser Tabelle $FEB6-$FEC1 sind für jedes 
Speicher-Volume zwei Bytes vorgesehen, 
die die Adresse der (für dieses Volume) 
zuständigen Treiber-Software enthalten. 
Vor dem Aufruf der Treiberroutinen wer- 
den von Pascal die entsprechenden l/O- 
Disk-Parameter gesetzt <7/>. Die Para- 
meterübergabe findet hier durch den 
Stack statt. Der Befehlscode selbst wird an 
die Treiberroutinen durch das X-Register 
übergeben. Nach dem Return enthält das 
X-Register den Fehlercode. 


5.4. ProDOS 


Das ProDOS-Betriebssystem, entwickelt 
von der Firma Apple Computer selbst, 
wurde bereits für eine Zusammenarbeit 
mit externen Speichermedien unter- 
schiedlicher Kapazität konzipiert. Darum 
ist es bei ProDOS im Vergleich mit ande- 
ren Apple-Betriebssystemen relativ ein- 
fach, die Harddisk-Treiberroutinen in das 
Betriebssystem zu integrieren. Der Zugriff 
des ProDOS-File-Managers auf die exter- 
nen Datenträger erfolgt auf Block-Ebene, 
wobei ein Block aus 512 Bytes besteht. 
Unter ProDOS kann ein einzelner 
Datenträger (Volume) insgesamt 32M und 
eine einzelne Datei insgesamt 16M umfas- 
sen. Berücksichtigt man dabei die hierar- 
chische Struktur des ProDOS-Inhaltsver- 
zeichnisses, die die Behandlung von meh- 
reren Dateien auf einem Volume einfach 
und übersichtlich macht, kann man ohne 
Nachteile den ganzen vorgesehenen Platz 
für ProDOS auf der Harddisk als ein Volu- 
me anlegen. 

Diese Betriebssystem-Konzeption verein- 
facht die Anpassung an das Harddisk-Sy- 
stem enorm. Um das ProDOS-Betriebssy- 
stem über das Vorhandensein der Hard- 
disk-Treiberroutinen zu informieren, muß 
die Speicherstelle $C7FF (Controller- 
EPROM) einen Wert zwischen $01 und 
$FE enthalten. Die Charakteristik des ex- 
ternen Datenträgers und der Treiberrouti- 
nen ist durch das Status-Byte $C7FE be- 
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schrieben <8>. Sind mindestens die zwei 
letzten Bits in diesem Status-Byte gesetzi 
(das bedeutet, die Controller-Treiber-Soft- 
ware unterstützt den Daten-Schreib- und 
-Lesevorgang), so wird sich das ProDOS 
beim Booten automatisch die Adresse der 
Harddisk-Treiberroutinen in der „Global 
Page“ merken. Das High-Byte dieser 
Adresse ist gleich $C7 und das Low-Byte 
wird durch den Inhalt der Speicherstelle 
$C7FF bestimmt. 

Ist die gesamte Anzahl der Blöcke, die auf 
dem ProDOS-Teil der Harddisk abgespei- 
chert werden können, von Anfang an be- 
kannt, so kann man diesen Wert direkt in 
der Adresse $C7FC-$C7FD abspeichern. 
In unserem Fall ist jedoch dieses Verfah- 
ren nicht zu gebrauchen, weil die Größe 
des ProDOS-Volumes erst durch den Be- 
nutzer bestimmt wird. Das ProDOS bietet 
hier eine andere nützliche Möglichkeit, das 
Betriebssystem über die Größe des Volu- 
mes zu informieren. Dazu muß der Wert 
60000 bei Adresse $C7FC-$C7FD abge- 
speichert werden. Dieser Wert teilt dem 
Betriebssystem mit, daß die Ermittlung der 
Blockanzahl durch die Ausführung eines 
Status-Request-Kommandos möglich ist. 
Das Status-Request-Kommando muß die 
Information der Organisationstabelle der 
Harddisk bei der Berechnung dieser An- 
zahl benutzen. Diese Anzahl von Blöcken 
wird vom ProDOS beim Beschreiben der 
Harddisk- „Volume-Bit-Map“ sowie des 
Directory-Headers berücksichtigt, so daß 
in Zukunft erkannt wird, wie groß das Spei- 
chermedium ist. 

Die Schnittstelle zwischen den Treiberrou- 
tinen und dem ProDOS-File-Manager ist 
definiert und z.B. in <8> beschrieben. Die 
Harddisk-Treiber-Software muß folgende 
Kommandos unterstützen: 

— Status Request 

— Read Request 

— Write Request 

Die Parameterübergabe für die Treiberrou- 
tinen erfolgt hier durch die Speicherstellen 


$0042 bis $0047 folgendermaßen: 

$0042: Comand Code 

$0043: Unit-Nummer 

$50044-$0045: Zeiger des Datenpuffers 
$0046-$0047: Block-Nummer 

Die Harddisk-Treiberroutinen sollen die 
physikalische Datenübertragung zwischen 
der Platte und dem ProDOS-Datenpuffer 
steuern und dem ProDOS-File-Manager 
die Fehlermeldungen liefern. Das Auftre- 
ten eines Fehlers wird durch Setzen des 
Carry-Flags signalisiert, und der Akkumu- 
lator enthält in diesem Fall den Fehlerco- 
de. Folgende Fehlercodes sollen ımple- 
mentiert werden: 

$27: /O-Fehler 

$28:  Harddisk-System 
schlossen 


nicht ange- 


$2B: Write Protected 
Bei der Berechnung der physikalischen 
Harddisk-Parameter müssen die Treiber- 
routinen selbstverständlich die Harddisk- 
Organisations- und Ersatz-Track-Tabelle 
in Anspruch nehmen. 


6. Schlußbemerkungen 


Der Anschluß und die Integration eines 
Harddisk-Systems an den Apple-Rechner 
stellt ein komplexes Problem dar, das in 
einem Artikel nicht vollständig beschrie- 
ben werden kann. Wir mußten uns daher 
auf die allgemeine Beschreibung der 
Hard- und Software-Komponenten be- 
schränken. Für diejenigen, die sich für die 
praktische Anwendung des Controllers in- 
teressieren, steht ein ausführliches Hand- 
buch sowie eine Demo-Diskette zur Verfü- 
gung <9>. 

Obwohl die dargestellten Überlegungen 
auf den Apple-Rechner bezogen waren, 
lassen sich die Grundideen auch auf ande- 
re Rechner übertragen. Als besonders 
praktisch und nützlich haben sich die Ei- 
genschaften des Controllers erwiesen, die 
dem Benutzer eine gleichzeitige Ausnut- 
zung des Harddisk-Speicherplatzes unter 
den verschiedenen Betriebssystemen er- 
lauben. Die große Speicherkapazität der 
Harddisk kann dadurch flexibler und opti- 
maler genutzt werden. 

Zusammenfassend kann man sagen, daß 
der vorgestellte Harddisk-Controller dem 
Benutzer einen einfachen Anschluß eines 
großen und schnellen externen Datenträ- 
gers an seinen Rechner erlaubt. 
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Zeichensätzen 
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Wollten Sie schon einmal einen Text mit 
wissenschaftlichen Sonderzeichen oder 
Grafiksymbolen auf dem Imagewriter aus- 
drucken? Dann haben Sie sicher erfahren, 
welche Mühe man mit den Byte-Berech- 
nungen hat, bis das Zeichen endlich auf 
dem Papier erscheint. Das Programm 
FONT.LOADER zusammen mit BITEDI- 
TOR (von J. Klamt, Peeker 7/85, S. 29) 
oder „ANIMATRIX“ (aus DOS-Toolkit- 
Diskette) hilft Ihnen bei dieser Arbeit, so 
daß Sie wieder Zeit haben, Dinge zu erle- 
digen, die mehr Spaß machen, als genervt 
über endlosen Zahlenkolonnen zu sitzen. 


1. Die Grundidee 


Der Apple-Imagewriter kann In seinem 
Puffer bis zu 175 frei definierbare Zeichen 
speichern. Um diese Zeichen zu definie- 
ren, müssen bestimmte Steuerzeichen 
zum Drucker gesendet werden, gefolgt 
von den eigentlichen Daten-Bytes für das 
neue Zeichen. 

Da das manuelle Berechnen der Daten- 
Bytes eines Zeichens sehr mühsam ist, 
sollte man diese Aufgabe dem Computer 
überlassen. Entsprechende Editierpro- 
gramme sind sowohl im Peeker wie auch 
auf der Apple-DOS-Toolkit-Diskette er- 
schienen, die neben einem Assembler 
(„EDASM“) und einer Applesoft-Utitity 
(„APA“) diverse Zeichensätze mit ent- 
sprechenden Hilfsprogrammen („ANIMA- 
TRIX“ u.a.) enthält, die in dem Buch „Be- 
wegte Apple-Grafik“ von Arne Schäpers 
disassembliert und kommentiert worden 
sind. Mit diesen Programmen lassen sich 
Zeichensätze einfach erstellen und verän- 
dern. Diese Zeichensätze sind wegen Ih- 
res Formates jedoch primär für die 80- 
Zeichenkarte-EPROMs oder die Hires- 
Grafik geeignet. 

Mit FONT.LOADER lassen sich diese teil- 
weise schon auf Diskette vorhandenen 
Zeichensätze in das Imagewriter-Format 
konvertieren und dann in den Drucker la- 
den. Damit ist es nun möglich, Sonderzei- 
chen oder bestimmte Schriften in Texten 
zu verwenden. 


2. Das Programm 
FONT.LOADER gliedert sich in drei Teile: 


2.1. Das Steuerprogramm 


Dieses Steuerprogramm erlaubt es Ihnen, 
die gewünschten Zeichensätze in den 
Drucker zu übertragen. Das Programm ist 
durch Menüführung sehr einfach zu bedie- 
nen und kann so auch von Anwendern 
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benutzt werden, die Texte mit dem Com- 
puter schreiben, sich aber mit dessen in- 
ternem Ablauf nicht beschäftigen können 
oder wollen. FONT.LOADER stellt ihnen 
verschiedene Funktionen zur Verfügung: 


2.1.1. Zeichensatzformat ändern 

Mit dieser Funktion können Sie das 
Datenformat des Zeichensatzes einstel- 
len, den Sie in den Drucker laden wollen. 
Keine Angst, Sie müssen sich nicht schon 
wieder mit den Zeichensatzinterna befas- 
sen! FONT.LOADER kann zwei gängige 
Formate verarbeiten: Zeichensätze des 
BIFEDITORs und von ANIMATRIX aus 
dem DOS Toolkit. Wählen Sie diese Op- 
tion, so wird abwechselnd eines der bei- 
den Formate ausgewählt. Die Vorgabe 
beim Starten des Programms ist das DOS- 
Toolkit-Format. 


2.1.2. Darstellungsart ändern 

Sie können beim FONT.LOADER zwi- 
schen zwei Darstellungsarten auswählen: 
normal und invers. Diese entsprechen den 
beiden Applesoft-Modi „NORMAL“ und 
„INVERSE*. Um besonders wichtige 
Textstellen hervorzuheben, können Sie 
zum Beispiel inverse Schrift benutzen. 
Standard-Darstellungsformat beim Starten 
des Programms ist normale Schrift. Die 
Funktion „Darstellungsart ändern“ wech- 
selt zwischen den beiden Modi. 


2.1.3. Zeichensatz von Diskette laden 

Mit dieser Option können Sie fertige Zei- 
chensätze von der Diskette laden. Beach- 
ten Sie bitte hierbei, daß das entsprechen- 
de Zeichensatzformat vor dem Einladen 
eines Zeichensatzes richtig gesetzt ist. 
Sollten Sie den Namen des Zeichensatzes 
nicht genau wissen, so können Sie sich 
durch Eingabe von Return den Disketten- 
inhalt anzeigen lassen. Sollten Sie aus 
Versehen diese Funktion gewählt haben, 
so kommen Sie mit Ctrl-E zum Hauptme- 
nü zurück. 


2.1.4. Zeichensatz zum Drucker 
übertragen 

Durch Wählen dieser Funktion übertragen 
Sie den eingeladenen Zeichensatz aus 
dem Computer in den Drucker. Dieses 
Verfahren wird als „Downloading” be- 
zeichnet und ist im Druckerhandbuch be- 
schrieben. Sollten Sie den Drucker noch 
nicht eingeschaltet haben, so tun Sie dies 
nun und beantworten Sie die Frage „Ima- 
gewriter bereit? , mit „J“. Die in den Druk- 
ker geladenen Zeichensätze bleiben be- 
stehen, bis Sie den Drucker abschalten. 
Es beeinflußt die Zeichensätze nicht, 
wenn Sie booten oder das Betriebssystem 
wechseln. 
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2.1.5. Probeausdruck 

Diese Funktion erstellt Ihnen einen Probe- 
ausdruck des Zeichensatzes, der sich ge- 
rade im RAM des Druckers befindet. Es 
wird der normale Zeichensatz gedruckt 
und darunter die Zeichen des eingelese- 
nen Zeichensatzes. 


2.1.6. Zeichensatz abspeichern 

Mit dieser Option können Sie den Zei- 
chensatz, der sich gerade im Apple-RAM 
befindet, auf Diskette abspeichern. Sie ha- 
ben hierbei zwei Möglichkeiten: 

- BRUN-fähige FONT.LOADER-Datei: 
Wollen Sie eine BRUN-fähige Zeichen- 
satzdatei erstellen, so wählen Sie diese 
Funktion. FONT.LOADER speichert hier- 
bei den Zeichensatz und das Maschinen- 
programm zusammen auf Diskette ab. 
Diese Datei kann dann mit BRUN gestartet 
werden und lädt den Zeichensatz automa- 
tisch in den Imagewriter. Durch Verwen- 
dung einer BRUN-fähigen Zeichensatzda- 
tei sparen Sie sich zum einen alle Einga- 
ben, die Sie normalerweise in FONT.LOA- 
DER machen müssen, zum anderen kön- 
nen Sie so eine Pre-Boot-Diskette für Ihr 
Anwendungsprogramm erstellen: Initiali- 
sieren Sie eine Diskette, speichern Sie 
darauf die BRUN-fähige Zeichensatzdatei 
und schreiben Sie ein kleines Hello-Pro- 
gramm, das diese Datei startet. Sie müs- 
sen dann nur Ihre Pre-Boot-Diskette einle- 
gen und den Imagewriter sowie den Apple 
einschalten. Der Zeichensatz wird auto- 
matisch beim Booten dieser Diskette in 
den Drucker übertragen. Alle FONT.LOA- 
DER-Einstellungen wie Zeichensatzformat 
und Darstellungsart werden in die Zei- 
chensatzdatei übernommen. 

Beachten Sie bitte: Die Zeichensatzdatei 
überträgt zwar den Zeichensatz in den 
Drucker, aktiviert ihn jedoch nicht. Dies 
müssen Sie selbst in Ihrem Hello- bzw. 
Änwendungsprogramm tun. 

— Zeichensatz allein abspeichern: Mit 
dieser Option kann der Zeichensatz auf 
Diskette abgespeichert werden. Im Unter- 
schied zu oben wird jedoch das Maschi- 
nenprogramm nicht mit abgespeichert, 
sondern nur die Bit-Mustertabelle des Zei- 
chensatzes. Sie können diese Funktion 
dazu benutzen, um Zeichensätze zwi- 
schen Disketten zu übertragen oder kon- 
vertierte Zeichensätze (siehe 2.1.7.) abzu- 
speichern und dann weiterzubearbeiten. 


2.1.7. Zeichensatzkonvertierung 

Diese Funktion konvertiert Zeichensätze 
zwischen den beiden von FONT.LOADER 
akzeptierten Formaten. FONT.LOADER 
erkennt automatisch das Format des aktu- 
ellen Zeichensatzes und konvertiert es in 
das jeweils andere. Sie können mit dieser 
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Funktion also Zeichensätze zwischen BIT- 
EDITOR und DOS Toolkit austauschen, 
Sollten Sie DOS Toolkit nicht besitzen, so 
ist diese Funktion dennoch sehr wichtig für 
Sie, wenn Sie die auf der Sammeldiskette 
enthaltenen Zeichensätze im DOS-Tool- 
kit-Format mit dem BITEDITOR weiterbe- 
arbeiten wollen. Konvertieren Sie hierzu 
den DOS-Toolkit-Zeichensatz In das BII- 
EDITOR-Format und speichern Sie an- 
schließend den Zeichensatz auf Diskette 
ab. Nach dem Verlassen von FONT.LOA- 
DER können Sie diese Zeichensatzdatei 
dann weiterbearbeiten. 


2.1.8. Informationen 
Mit dieser Option erhalten Sie Informatio- 
nen über FONT.LOADER und darüber, wie 
Sie die in den Imagewriter geladenen Zei- 
chensätze aktivieren. 


2.1.9. Ende 

Mit dieser Wahl kehren Sie zum Applesoft- 
BASIC zurück und können nun Ihr Anwen- 
dungsprogramm starten. 


2.2. FONT.LOADER.OBJ 


Dieses Programm erledigt die eigentliche 
Arbeit von FONT.LOADER. Es rechnet die 
verschiedenen Zeichensatzformate in das 
Format des Imagewriters um und lädt den 
Zeichensatz anschließend in den Drucker. 
Mit „Zeichensatz zum Drucker übertra- 
gen“ wird dieses Maschinenprogramm 
von FONT.LOADER aus gestartet. 


2.3. FONT.CONVERT 


Dieses Programm dient der Konvertierung 
der Zeichensatzformate mit der Funktion 
„Zeichensatzkonvertierung”“. 


2.4. Die Zeichensätze 


FONT.LOADER arbeitet mit Zeichensät- 
zen im DOS-Toolkit- oder BITEDITOR- 
Format. Die Zeichensatztabellen werden 
von der Diskette geladen, dann von 
FONT.LOADER in das Druckerformat kon- 
vertiert und in den Drucker geladen. Ge- 
naueres über die Zeichensätze finden Sie 
im Abschnitt 3.1. Auf der Sammeldiskette 
befinden sich drei Zeichensatzfiles: 
DEUTSCH.FONT, dieser entspricht dem 
deutschen Apple-Bildschirm-Zeichensatz 
und läßt sich mit „ANIMATRIX“ modifizie- 
ren. Der Zeichensatz ASCIL.FONT ent- 
spricht dem amerikanischen Bildschirm- 
Zeichensatz. SONDERZEICHEN.FONT 
stellt Ihnen einige Sonderzeichen und die 
Mousetext-Zeichen zur Verfügung. Wel- 
che Zeichen die einzelnen Sätze enthal- 
ten, sehen Sie in dem Probeausdruck in 
Abb. 1. 


33 








1u48%87C)#+,-./0123456789: 5; <=>?3ABCDEFGHIJKLMNDO 
er U = Ki wähle Lt At 


PORSTUVWXYZABSU”_“abcedefghi jk Imnopgrstuvwxyzaöüß 


Fr -L Pula Led) aß 





US C)r#+,-./0123456789: ; <=>?8ABCDEFGHI JKLMNO 
WISSENS EHEZTTRARLEAABAAEHREIEE TTVCH. SCREEN Ki 





BORSTUUWDEZEUNT “abedefghljkimnopgrstuvwxyzäöüß 
Du +— 13 DE — 
DEUTSCH, FON/’T 
11 49%8°C)#+,- ,/0123456789: ;<=>?8ABCDEFGRIJKLMNO 
IFHEHRt'C yk+,- 7012234567589: ,£=>75ABEDEFGHIJKLHKRO 
PORSTUVWXYZABU" _“abedefghi jkImnopgrstuvwxyzädüß 


FORSTUUNXYZAUU-_\abedefghi,iklmnoparstuunxuzaduß 


TScH.r | 


Krusnstldhs,-. Te 
"= rE Eı ir.“ 11 = a El 5 LEN 





EST FH ERDE ET 
1 rat FERN 


FORST N Ze 





ASCIT,FONT 


IE ae C)%+,-./01234567899: ;<=>?9ABCDEFGHIJKLMNO 
URL TU dEr. = Z/AL2I455739 1 5 <-> FRAELDEFGHLIELMNG 


PORSTUVWKYERBU*_\ abcdefghijkimnopgrstuvwxyzädüß 
FORSTUOUNKFELH I "abredefghiiklmnoparstuvnwmuzt|3” 
ASCII,FONT (invers} 

ESEL EsSELTEE ERINERIZTERENINN 






'PORSTUVWRYZRBU 3. abece oh iKinnopgcatuvwcyasBun 





Abb. 1: Beispielausdruck 


3. Die Ansteuerung der Sonder- 
zeichen 


3.1. Ansteuerung von Applesoft aus 


Durch die Print-Anweisung 

PRINT CHR$ (27); CHR$ (39) 

wählen Sie den anwenderspezifischen 
Zeichensatz aus. Alle danach ausgegebe- 
nen Zeichen erscheinen im Muster dieses 
Zeichensatzes. Wollen Sie wieder normale 
Zeichen drucken, also den Standardzei- 
chensatz verwenden, so benutzen Sie die 
folgende Anweisung: 

PRINT CHR$ (27); CHR$ (36) 

Hierdurch wird wieder auf den druckerin- 
ternen Zeichensatz zurückgeschaltet. 


3.2. Ansteuerung von Pascal aus 


Hier verwenden Sie die gleichen Steuer- 
codes, die Sie durch entsprechende 
Write-Anweisungen an den Drucker über- 
tragen. 


3.3. Konfiguration von Appleworks 


Um die Sonderzeichen in Appleworks 
drucken zu können, müssen Sie einen 
„Anderen Drucker“ definieren. Gehen Sie 
hierzu in die Hauptauswahl. Tippen Sie 


nun 5 (Retum), 7 (Return), 2 (Return). Sie: 


müßten nun im Menü „Drucker hinzufü- 
gen“ sein. Wählen Sie nun Option 12 „An- 
derer Drucker“ und geben Sie einen Na- 
men dafür ein, zum Beispiel „Imagewri- 
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ter.SZ“. Wählen Sie dann den Steckplatz 
aus, in dem die Druckerkarte steckt. 
Nun beginnt die eigentliche Arbeit. Wählen 
Sie die Option „Steuerzeichen“. Durch 
Eingabe von 3 (Return) können Sie die 
Steuerzeichen für Fettdruck, Index oder 
Exponent so definieren, daß anstatt Fett- 
druck, Index oder Exponent der umdeli- 
nierte Zeichensatz aktiviert wird. Wenn Sie 
im Menü „Fettdruck...“ sind, können Sie 
die Steuerzeichen entweder auf Fettdruck, 
Index oder Exponent legen. Wählen Sie 
z.B. Fettdruck. Drücken Sie nun 1 (Return) 
für „Fettdruck ein“ und tippen Sie die 
Steuerzeichen für Sonderzeichen ein, 
nämlich „ESC '" (ESC-Taste und dann 
„“-Taste). Verlassen Sie „Fettdruck ein” 
mit Apfel- +. Wählen Sie dann „Fettdruck 
aus“ und geben Sie die Steuerzeichen 
„ESC $" ein. Mit Apfel- T verlassen Sie 
die Eingabe. Kehren Sie durch mehrmali- 
ges Drücken von ESC zur Hauptauswahl 
zurück. Nun können Sie in der Textverar- 
beitung durch Eingabe von Ctri-F die Son- 
derzeichen starten. 
Sollten Sie genauere Informationen zum 
Definieren eines Druckers benötigen, so 
lesen Sie bitte im Appleworks-Handbuch 
nach. 


4. Technische Informationen 


Sie können FONT.LOADER ohne beson- 
dere Vorkenntnisse benutzen, doch viele 
Peeker-Leser wollen nicht nur vor einem 
fertigen Programm stehen, von dem sie 
zwar wissen, daß es, aber nicht wie es 
funktioniert. Für diese Leser möchte ich 
hier einige Grundlagen der zum Verständ- 
nis von FONT.LOADER notwendigen Din- 
ge geben. 


4.1. Zeichensätze 


FONT.LOADER kann, wie oben schon er- 
wähnt, zwei Zeichensatzformate verar- 
beiten: 


4,1,1.DOS-Toolkit-Zeichensätze 

Diese Zeichensätze werden mit dem 
DOS-Toolkit-Zeicheneditor „ANIMATRIX, 
erstellt. Pro Zeichen belegt dieser Zei- 
chensatz 8 Bytes. Diese 8-Byte-Gruppen 
sind so organisiert, daß sie direkt in den 
Hires-Speicher geladen werden können. 
Die oberste Zeile belegt also das relative 
Byte 0, die unterste das relative Byte 7. Da 
in der etwas kompliziert organisierten Ap- 
ple-Hires-Grafik die Bytes spiegelverkehrt 
erscheinen, also Bit O links und Bit 6 
rechts, sind auch alle Zeichen beim DOS 
Toolkit spiegelverkehrt abgelegt. Eine wei- 
tere Besonderheit: Das höchstwertige Bit 
eines jeden Bytes erscheint nicht auf dem 
Bildschirm. Es ist das Farb-Bit, das dazu 
dient, Zeilen eines Zeichens um einen hal- 





ben Punkt nach rechts zu verschieben, um 
es in einer anderen Farbe erscheinen zu 
lassen. Dieses Bit darf also nicht an den 
Drucker übertragen werden. Der DOS- 
Toolkit-Zeichensatz beginnt mit der Bit- 
Tabelle für das Leerzeichen und endet mit 
der für das Delete-Zeichen. Abb. 2 veran- 
schaulicht den Aufbau der Zeichentabelle 
beim DOS-Toolkit am Beispiel eines „B“. 
Man beachte, daß der Zeichensatz an die 
Adresse $8000 geladen wurde. 


Adresse Inhalt Bitmuster 


BIT 

16543210 
$8110 sıE ' “xx I OB 
$s8lill $21 ı %* x 11 Y 
$8112 $21 I x «I 27T 
58113 $1E ı »xx% 1 35 
$8114 s21 I % 104 
$8115 $21 I %* «15 
$8116 $S1ıE ı „ur I 6 
$8117 $00 | : 7 


Abb. 2: „B“ bei DOS Toolkit 


4.1.2. BITEDITOR-Zeichensätze 

Diese mit dem BITEDITOR erstellten Zei- 
chensätze dienen primar dem Brennen 
von verbesserten 80-Zeichen-EPROMs. 
Sie sind so organisiert, daß die Video- 
Elektronik direkt darauf zugreifen kann. 
Die Zeichenmatrix beträgt 8 x 9 Punkte, 
wobei normale Zeichen die unteren 8 
Punkte benutzen, Da der Imagewriter nur 
eine Zeichenmatrix von 8 * 8 Punkten 
hat, muß man auf die oberste Zeile ver- 
zichten. Die oberste Zeile für den Drucker 
beginnt also beim relative Byte 1. Der 
Speicherplatzverbrauch ist bei diesem 
Zeichensatzformat doppelt so groß, ob- 
wohl die Zeichenmatrix nur eine Zeile grö- 
Ber ist. Die Zeichenlänge beträgt 16 Bytes, 
da pro Zeichen jeweils 7 Bytes ungenutzt 
bleiben. Beim BITEDITOR-Format beginnt 
der Zeichensatz auch nicht mit dem Leer- 
zeichen, sondern mit dem NUL-Zeichen 
(Ctrl-8). Um den Zeiger auf das Leerzei- 
chen zu setzen, habe Ich mich eines klei- 
nen Tricks bedient: Ich erhöhe das höher- 
wertige Byte der Zeichensatzadresse um 
2, was gerade 32 x 16 = 512 Bytes 
entspricht. Ein weiterer kleiner Patch ist 
notwendig, um immer die zweitobersie 
Zeile eines Zeichens mit O bezeichnen zu 
können: Wenn man den niederwertigen 
Teil der Zeichenadresse um 1 erhöht, so 
bezeichnet der Byte-Index 0 immer das 
zweite Byte des Zeichens. Die Zeichen 
stehen beim BITEDITOR nicht spiegelver- 
kehrt im RAM, so daß man die LSR-An- 
weisung in der Convert-Routine durch ei- 
ne ASL-Anweisung ersetzen muß, um ei- 
ne richtige Zuordnung der Zeichen-Bits zu 
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Die umfassende Marktübersicht für Hobby- 
Elektroniker und Computer-Anwender, 
klar gegliedert: 
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Amateurfunker, Videospieler, DX-er, Radio-, 
Tonband-, Video- und TV-Amateure, für 
Elektro-Akustik-Bastler und Elektroniker. 
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erhalten. Anders als beim DOS Toolkit darf 
man hier nicht das höchstwertige Bit aus- 
maskieren, da es hier einen Zeichenpunkt 
enthalten kann. Auch hier sei der Aufbau 
eines „B“ in Abb. 3 verdeutlicht. Der Zei- 
chensatz ist wieder ab $3000 in das Ap- 
ple-RAM geladen worden. 


Adresse Inhalt Bitmuster 


BIT 

76543210 
$8420 $00 [ 
$8421 87C I aa 1 0 B 
$8421 $42 ı % «tt 1Y 
$8421 542 I % *«»1 2T 
$8421 37C I 223% I 3E£ 
38421 542 1% «1 4 
88421 $42 I % 15 
58421 S7C I 248% 16 
$8421 800 I Im, 


- zz zz. 


Abb. 3: „B* bei BITEDITO 


4.1.3. Imagewriter-Zeichenformat 

Beim Downloading in den Imagewriter 
werden die Zeichen nicht zeilenweise 
übertragen, sondern das Bit-Muster wird 
spaltenweise als ASCII-Zeichen codiert an 
den Drucker gesendet. Das höchstwertige 
Bit bezeichnet hier die unterste Druckna- 
del. Das erste ASCII-Zeichen entspricht 
der linken Zeichenspalte, das achte der 
rechten. Das „B“ wird also nach dem Mu- 
ster in Abb. 4 übertragen. 


BYTE 
01234567 


ur ze «+ 


*x 
x 
JAWBWNMmO 


Bytefoige: 


S00 $7F 8349 $49 549 549 836 S00 
Abb. 4: „B“ bei Downloading 


4.2. Beschreibung der Programme 


4.2.1. Steuerprogramm FONT.LOADER 

Das Applesoft-Programm dient dazu, dem 
Benutzer die Bedienung von FONT.LOA- 
DER durch Menüsteuerung zu erleichtern. 
Es startet die verschiedenen Maschinen- 
programme mit korrekt gesetzten Parame- 
tern und stellt darüber hinaus noch weitere 
Funktionen wie das Abspeichern von Zei- 
chensätzen zu Verfügung. Das Applesoft- 
Steuerprogramm belegt den normalen 
Speicherbereich von $803 bis LOMEM. 
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4.2.2. Maschinenprogramm FONT. 
LOADER.OBJ 

Dieses Programm dient der Übertragung 
der Zeichensatzdatei an den Imagewriter. 
Es initialisiert das Downloading und Über- 
trägt dann mit einer speziellen Ausgabe- 
routine, die im Gegensatz zur BASIC-Aus- 
gaberoutine 8-Bit-Zeichen verarbeiten 
kann, die Zeichendaten an den Drucker. 
Vor dem Aufruf von FONT.LOADER.OBJ 
müssen die Flags INVERS ($00FA = 250) 
und TOOLKIT ($00FB = 251) enspre- 
chend den Kommentaren im Assemblerli- 
sting korrekt gesetzt werden. Die von 
FONT.LOADER.OBJ belegten Speicher- 
bereiche sind aus dem kommentierten As- 
semblerlisting ersichtlich. Durch Neuas- 
semblierung kann FONT.LOADER.OBJ 
auch an andere Speicherbereiche gelegt 
werden, jedoch müssen dann alle CALLs 
im Steuerprogramm und die Startadresse 
des Zeichensatzes ebenfalls geändert 
werden. 


4.2.3. Maschinenprogramm FONT. 
CONVERT 

Dieses Programm konvertiert Zeichensät- 
ze zwischen den beiden von FONT.LOA- 
DER akzeptierten Zeichensatzformaten. 
Der Aufruf erfolgt über die Funktion „Zei- 
chensatzkonvertierung“ des Applesoft- 
Steuerprogramms FONT.LOADER. Bei 
der Konvertierung wird automatisch das 
Zeichensatzformat-Flag TOOLKIT ange- 
paßt. Die Speicherbelegung kann man aus 
dem Assemblerlisting entnehmen. 


4.2.4. Zeichensätze 

Die Zeichensätze werden standardmäßig 
vom Steuerprogramm nach $8000 gela- 
den, können aber nach einem kleinen 
Patch im Maschinenprogramm in der Ini- 
tialisierungsroutine auch In andere Spei- 
cherbereiche geladen werden. DOS-Too|- 
kit-Zeichensätze belegen $300 Bytes, BIT- 
EDITOR-Zeichensätze wegen ihrer ande- 
ren Organisation $800 Bytes ohne bzw. 
$1000 Bytes mit inversem Zeichensatz. 
Um FONT.LOADER auszuprobieren, kön- 
nen Sie den SONDERZEICHEN.FONT 
eingeben. Mit „BSAVE SONDERZEI- 
CHEN.FONT, A$8000, L$0300° spei- 
chern Sie ihn auf Diskette ab. 


4.3. Downloading beim Imagewriter 


Von Applesoft aus lassen sich nicht ohne 
weiteres anwenderspezifische Zeichen- 
sätze in den Imagewriter laden, da die 
BASIC-Ausgaberoutine bei jedem ausge- 
gebenen Zeichen das höchstwertige Bit 
setzt. Alle ausgegebenen Zeichen haben 
also ASCII-Codes im Bereich von 128 bis 
255, Für das Programmieren von Zeichen- 
sätzen hat dies folgende Konsequenzen: 
Man definiert nicht wie gewünscht Low- 
ASCII-Zeichen im Bereich von 32 bis 126, 
sondern High-ASCII-Zeichen mit Codes 


im Bereich 160 bis 254. Dies wäre nicht 
weiter tragisch, da man diese Zeichen mit 
„ESC x" anwählen kann. Im High-ASCII- 
Bereich lassen sich jedoch nicht die vollen 
96 ASCII-Zeichen speichern. Man müßte 
also auf einige Buchstaben verzichten. 
Weiterhin werden von der BASIC-Ausga- 
beroutine auch die höchstwertigen Bits 
der Daten-Bytes auf I gesetzt, was zur 
Folge hat, daß jedes selbst programmierte 
Zeichen auf dem Drucker unterstrichen 
erscheint. Beide Probleme — das des 
Speicherbereichs und das der Unterstrei- 
chung - lassen sich mit einem Maschinen- 
programm umgehen, das Low-ASCIl sen- 
det und die Daten-Bytes wirklich so aus- 
gibt, wie sie im Apple-Speicher stehen. 
Mit der Ausgabe-Routine von Dieter Geiß 
(s. Superdump, Peeker 6/85, S. 22), die 
ich in FONT.LOADER verwendet habe, 
läßt sich dies erreichen. 


5, Schlußbemerkung 


Ich hoffe, daß Sie durch FONT.LOADER 
von den mühsamen Zeichensatzberech- 
nungen entlastet werden. Wenn Sie nicht 
wissen, was Sie mit den vielen gesparten 
Stunden anfangen sollen, können Sie ja 
Ihre freigewordene Zeit dazu nutzen, Mac- 
intosh-Zeichensätze auf dem Imagewriter 
zu implementieren. Vielleicht entwickeln 
Sie auch ein Programm zur direkten Über- 
tragung von Mac-Zeichen über die seriel- 
len Ports? Viel Spaß auf jeden Fall beim 
Ausprobieren der neuen Zeichen! 


Kurzhinweise 


1. Zweck: 

Hilfsprogramm zum Übertragen von DOS- 
Toolkit- und BITEDITOR-Zeichensätzen 
an den Imagenriter. 

2. Konfiguration: 

Apple II, II+, Ile mit Super Serial Card 
oder IIc 

Imagewriter | oder || 

DOS 3.3 oder ProDOS 

3. Test 

RUN FONT.LOADER, dann: 

mit „4“ Zeichensatz an Drucker über- 
tragen, 

mit „5“ Probeausdruck erstellen 

4, Sammeldisk 

FONT.LOADER 
(Applesoft-Steuerprogramm) 
T.FONT.LOADER.OBJ 
T.FONT.CONVERT 

(Big-Mac-Quelltexte) 
FONT.LOADER.OBJ 

FONT.CONVERT 

(Maschinenprogramme) 
SONDERZEICHEN.FONT 
DEUTSCH.FONT 

ASCII.FONT 

(Zeichensätze im DOS-Toolkit-Format) 
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9.44.1949. 9.49.19. 49 dRUCKER 44 


= — 


FONT.LOADER | 1890 PRINT "2, nur Zeichensatz abspeichern! 
1900 0 = 2: GOSUB 2260 
1000 REM FONT.LOADER 19810 PRINT : PRINT "Ende mit <Return>": PRINT 
1010 REM Carl Frieder Mahr 1920 INPUT "Dateiname: ";22%: IF Z2$ = '"" THEN RETURN 
1020 REM 1986 1930 A = 32512 + 256 « (W - 1): REM für BSAVE 
1030 : 1940 L = 2304 - 256 * (W - 1) - 1280 = PEEK (251) 
1040 REM Initialisierung 1950 POKE 32513, PEEK (250): POKE 32517, PEEK (251) 
1050 : 1960 POKE 32537,234: PRINT D$"BSAVE" ;ZZ$;",A";A;",L";L 
1060 D$ = CHR$ (4): POKE 768,0 | 1970 RETURN 
1070 A2C = PEEK ( - 1101) = 6 AND PEEK ( - 1088) = 0 | 1980 : 
1080 ZS$ = "SONDERZEICHEN.FONT" 1990 REM Zeichensatzkonvertierung 
1090 ZF$(0) = "BITEDITOR":ZF$(1) = "DOS Toolkit" 2000 : 
1100 PRINT D$"BRUNFONT.LOADER ,OBJ' 2010 HOME : PRINT "Zeichensatzkonvertierung": PRINT 
1110 PRINT D$"BLOAD"ZS$" , A$B000" 2020 PRINT "Konvertierung des Zeichensatzes:": PRINT 
1120 : 2030 PRINT ZF$( PEEK (251));" -> ";ZF$( NOT ( PEEK (251))}) 
1130 REM Menü und Statusanzeigen 2040 IF PEEK (768) = 165 THEN CALL 768: RETURN 
1140 : 2050 PRINT D$;"BRUN FONT,CONVERT": RETURN 
1150 PRINT CHR$ (21): PRINT D$"PR#0": TEXT : HOME 2060 : 
1160 PRINT "FONT,LOADER": PRINT !'=—=———— 11 2070 REM Informationen und Hilfe 
1170 PRINT : PRINT "Zeichensatz-Utility für den Imagewriter" 2080 : 
1180 PRINT : PRINT "Zeichensatz . 01.258 2090 HOME : PRINT "Informationen": PRINT 
1190 PRINT : PRINT "Zeichensatzformat: 1: ZF$( PEEK (251)) 2100 PRINT "FONT.LOADER überträgt Zeichensätze aus" 
1200 PRINT "Darstellungsart : "; 2110 PRINT "DOS Toolkit oder dem BITEDITOR von" 
1210 IF PEEK (250) = 0 THEN PRINT "normal" 2120 PRINT "Joachim Klamt aus Peeker 7/85." 
1220 IF PEEK (250) = 1 THEN PRINT "invers" 2130 PRINT : PRINT "Die Zeichensätze bleiben im Image-" 
1230 PRINT : PRINT "1. Zeichensatzformat ändern!" | 2140 PRINT "writer, bis Sie ihn ausschalten." 
1240 PRINT "2, Darstellungsart ändern" 2150 PRINT : PRINT "Mit 'PRINT CHR$ (27); CHR(39) ' können Sie" 
1250 PRINT "3_ Zeichensatz von Diskette laden" 21560 PRINT "diese Zeichensätze anwählen." 
1260 PRINT "4. Zeichensatz zum Drucker übertragen" 2170 PRINT : PRINT "Mit Appleworks oder anderen Programmen! 
1270 PRINT "5, Probeausdruck'" 2180 PRINT "ist es so möglich, Sonderzeichen zu" 
1280 PRINT "6, Zeichensatzdatei abspeichern" 2190 PRINT "drucken." 
1290 PRINT !'7, Zeichensatzkonvertierung" 2200 PRINT : PRINT "Abgeschaltet werden die Zeichensätze" 
1300 PRINT ug, Informationen": PRINT : PRINT "9. Ende" | 2210 PRINT "durch 'PRINT CHR$ (27) ;CHR$(36) !.": PRINT 
1310 0 = 9: COSUB 2260 2220 PRINT "Weiter mit beliebiger Taste ";: GET A$: RETURN 
1320 IF W = 9 THEN HOME : END 2230 : 
1330 ON W GOSUB 1380,1430,1470,1580,1690,1870,2010,2090 2240 REM Tastatureingabe 
1340 GOTO 1150 22SO : 
1530: 2260 PRINT : PRINT "Bitte wählen Sie "; 
1360 REM Zeichensatzformat ändern 2270 GET W$:W = VAL (W$): IFW< 1 0ORW > 0 THEN ART7O 
1370 : 2280 PRINT W: RETURN 
1380 POKE 251, NOT ( PEEK (251)) 
1390 ZS$ = "(kein Zeichensatz)": RETURN SONDERZEICHEN.FONT 
1400 : 
a men. BSAVE SONDERZEICHEN.FONT, A$8000, L$0300 
1430 POKE 250, NOT ( PEEK (250)): RETURN 
1440 : 88000: 00 00 00 00 00 00 00 00 
1450 REM Zeichensatz-File laden 88008: 08 08 08 08 08 08 08 08 
1460 : $8010: 14 14 14 14 14 14 14 14 
1470 HOME : PRINT "Zeichensatz von Diskette laden": PRINT $8018: 10 10 3E 08 3E 04 04 00 
1480 PRINT "Catalog durch Eingabe von <Return>" $8020: 30 08 08 08 08 08 08 06 
1490 PRINT "Zurück zum Menü mit <Ctrl-E>" 58028: 14 08 14 12 14 08 14 00 
1500 PRINT : INPUT "Zeichensatzname: ";22$ 88030: 00 00 08 14 22 41 00 00 
1510 IF ZZ$ = CHR$ (5) THEN RETURN 858038: 00 08 08 08 08 08 7F 00 
1520 IF ZZ$ = "" THEN HOME : PRINT DS"CATALOG": GOTO 1500 88040: 1C 04 04 04 04 04 04 1C 
1530 PRINT D$"BLOAD"ZZ$", A$8000" $8048: 1C 10 10 10 10 10 10 IC 
1540 Z5$ = ZZ$: RETURN $8050: 00 00 18 18 00 00 00 00 
1550 : 58058: 08 08 3E 08 08 00 3E 00 
1560 REM Zeichensatz in Druckerspeicher laden 88060: 00 00 00 AC 32 00 00 00 
le0207. 58068: 00 20 20 10 10 08 4A 00 
1580 HOME : PRINT "Zeichensatz zum Drucker übertragen" 58070: 00 00 SC 02 3E 02 3C 00 
1590 IF ZS$ < > "(kein Zeichensatz)' THEN 1620 58078: 00 08 00 3E 00 08 00 00 
1600 PRINT : PRINT "Kein Zeichensatz vorhanden!": PRINT $8080: 06 09 09 09 06 00 00 00 
1610 PRINT "Bitte eine Taste drücken ";: GET A$: RETURN 88088: 02 03 02 02 07 00 00 00 
1620 PRINT : PRINT "Imagewriter bereit? (j/n) ";: GET W$ | 58090: 07 08 04 02 OF 00 00 00 
1630 IF W$ < > "j" AND W& < > "J" THEN RETURN 88098: 07 08 07 08 07 00 00 00 
1640 PRINT W$: PRINT : PRINT "Zeichensatz wird übertragen..." $8040: 05 05 OF 04 04 00 00 00 
1650 CALL 32538: RETURN $80A8: OF 01 07 08 07 00 00 00 
1660 : 680B0: 06 01 07 09 06 00 00 00 
1670 REM Probeausdruck \ $80B8: OF 08 04 02 02 00 00 00 
1680 : # $80C0: 06 09 06 09 06 00 00 00 
1690 PRINT : PRINT D$"PR#1" \ 88008: 06 09 OE 08 06 00 00 00 
1700 PRINT SPC( 16) CHR$ (2a7)"Xx" CHR$ (14)2ZS$ CHR$ (15); $80D0: 00 00 7A 00 7A 00 00 00 
1710 IF PEEK (250) THEN PRINT " ({invers)"; $80D8: 00 00 00 00 00 00 00 00 
1720 PRINT CHR$ {27)"Y": PRINT SB0E0: 08 24 12 09 12 24 08 00 
1730 PRINT SPC( 16): GOSUB 1800: PRINT : PRINT SPC( 16} SB0EB: 00 AC 32 00 AC 32 00 00 
1740 PRINT CHRS (27) Tr. GOSsUB 1800, PRINT CHR$ (27)"$" $80F0: 08 12 24 48 24 12 08 00 
1750 PRINT S80F8: 00 00 00 00 00 00 00 00 
1760 PRINT SPC( 16): GOSUB 1820: PRINT : PRINT spei 16] 58100: 10 08 36 7F SP 3F 7E 36 
1770 PRINT CHR$ (27)"'";: GOSUB 1820: PRINT CHR$ (27)"$" $8108: 10 08 36 4l 2l 21 4A 36 
1780 PRINT : PRINT : PRINT D$"PR#0": RETURN $8110: 00 00 02 06 OE IE 36 42 
1790 : s81l18: 7F 22 14 08 08 14 2A TF 
1800 FOR I = 32 TO 79: PRINT CHR$ (T); 88120: 00 00 40 20 11 0A 04 04 
1810 NEXT : RETURN : REM " !! bis "0" 68128: 7F TF SF 5F 6E 75 TB TB 
1820 FOR I = 80 TO 126: PRINT CHR$ {TI}; | 58150: 70 0 YE 31778 30 36 02 
1830 NEXT : RETURN : REM "P'!" bis "R" 88138: 00 18 07 00 07 0C 08 70 
1840 : | 98140: 08 04 02 TF 02 04 08 00 
1850 REM Font-Datei erstellen 88148: 00 00 00 00 00 00 00 ZA 
1860 : 88150: 08 08 08 08 49 2A 1C 08 
1870 HOME : PRINT "Zeichensatzdatei abspeichern" 68158: 08 1C 2A 49 08 083 08 08 
1880 PRINT : PRINT "1. BRUN-fähige Font.Loader-Datei" 88160: 7F 00 00 00 00 00 00 00 
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$8168: 
$8170: 
58178: 
$8180: 
$8188: 
$8190: 
$8198: 
SB1A0: 
S8lAB: 
$81B0: 
$81B8: 
G81C0: 
$8108: 
$81D0: 
$81D8: 
S81EO: 
$81E8: 
$S1FO: 
SEIlF8: 
$8200: 
88208: 
$8210: 
$8218: 
58220: 
88228: 
$8230: 
58238: 
98240: 
68248: 
58250: 
68258: 
58260: 
58268: 
58270: 
68278: 
$8280: 
68288: 
68290: 
98298: 
SB2A0: 
$82A8: 
$82B0: 
$82B8: 
$82C0: 
$82C8: 
$82D0: 
$82D8: 
$82E0: 
$82E8: 
$82F0: 
$82F8: 


FONT.LOADER 


BSAVE FONT.LOADER, A$7F00, L$OOFC 


vo khant nr 


Sl 


EEE FF 


x“ »* 


FONT.LOADER 


Carl Frieder Mahr, 1986 


“rk Et %* 


Deo te er 2 2 2 2 2 202 2 2 22 2 2 202 22 2 2220 


»*kıkıKk%* 


ORG 


Gerätekonfiguration: 


Apple II, II+, IIe mit SSC in Slot 1 
Apple IIc mit Drucker an Fort 1 
Apple-Imagewriter I oder II 


$7F00 


* Label-Definitionen 


SPACE 
DEL 
CTRLD 
ESC 
OPASL 
OPLSR 


* Invers: 
* 


INVERS 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


0% 
a- 


EQU 


$7F 
584 
$9B 
50A ;Opcode ASL 
hAA ;Opcode LSR 


Zeichensatz normal laden 
Zeichensatz invers laden 


$FA ‚Flag 


* Toolkit: 0: BITEDITOR-Zeichensatz 


* 


ls: 


DOS-Toolkit-Zeichensatz 


7FOO: 
TFO2: 
7FO4: 
TFO6: 


T7FOB: 
TFOA: 
TFOD: 
TFOF: 
CELL: 
T7F14: 
TEIE: 
ae, 
TF19: 


TFIA: 


TFID: 
TER: 
TE2]: 
TFZ23: 


ern: 
TF2T: 
7F29: 
TF2B: 
TFZE: 
TERSU: 


TES2: 
TF34: 
TF36: 
TF38: 
TFSA: 
RS: 


TF3F: 
T7F4l: 
TF4A: 
7F46: 


Az 
86 
d2 
86 


Ag 
AE 
EO 
DO 
AE 
DO 
aa 
85 
60 


20 


Ad 
85 
Ag 
85 


Ag 
85 


8D 
A5 
DO 


06 


E6 
E6 
Ag 
8D 


Ag 
20 
A9 


00 
FA 
ol 
FB 


40 
BSEB 
06 
06 
co FB 
ol 


FC 


CC TF 


00 
06 
80 
07 


08 
FD 
4A 
SD 7F 
FB 
OD 


FD 
06 
07 
07 
DA 
SD TE 


9B 
EO 7F 
AD 
EO 7F 


100 
101 
102 
105 
104 
105 
106 
107 
108 
2093 
110 
171 
112 
113 
114 
115 
118 
Ir 
118 
119 
120 
712] 
22 
123 
124 


TO 


* 


OLKIT EQU 


$FB ‚Flag 


Ready: IIc Port: $20, SSC: $40 


READY EQU $FC ‚Ready-Bit 

* Offset: DOS-Toolkit-Zeichensatz: 8 

2 Biteditor-Zeichensatz 16 
OFFSET EQU SFD 

CHAR EQU $CE ;bearb. Zeichen 
WIDTH EQU $08 ;‚Zeichenbreite 
IND EQU $06 ‚Basis 

NO EQU $0o6sF8 »s1l0.2ur Slot. 
MISCFLG EQU $07F9 ;SSC Modebits 
FONT EQU 58000 ; Tabellenbeginn 
1D1l EQU SFBB3 ‚ID-Byte #1 

ID2 EQU S$FBCO ‚ID-Byte #2 

TEE EIS ETETTTSTZEIEIIT III SEI IE DEZ 

* Initialisierungsteil * 


EEE 2 2 22 20 2 22 22 2 2 2 2 2 2 2 2 22 


* Flags auf DOS-TOOLKIT-Zeichensätze 


* 


IN 


und normale 


IT LDX 
STA 
LDX 
STX 


Darstellung setzen 


#600 
INVERS 
+$01 
TOOLKIT 


* Patch für Status-Register-Unterschied 


* 


bei SSC und 


LDA 
LDX 
CPX 
BNE 
LDX 
BNE 
LSR 


NOTZC STA 


RTS 


TIe.Forts 
#540 
DJ 
#506 ‚ID-Bytes 
NOT2C dur, ITe 
ID2 ;überprüf 
NOT2C 

;Ready-Bi 


READY 


LEI TI TI S STE TEE nn EI ZZ EZ En 
Ausführungsteil * 
EU E TE DE 2 22 22 2 22 222 2222 


* 


* Super Serial Card initialisieren 


PGMSTART JSR 


* 


“Eee. * 


*#sk* %* 


* 


INITSSC 


Zeichensatzbeginn initialisieren 


LDA 
STA 
LDA 
STA 


#<FONT 
IND 
#>FONT 
IND+1 


en 


t. [EG 


Zeichenoffset und Opcode für Umformung 
des Zeichensatz-Bytes in Imagewriter- 

Bytes initialisieren. DOS Toolkit: LSR, 
BITEDITOR: ASL 


LDA 
STA 
LDA 
STA 
LDA 
BNE 


+$08 
OFFSET 
+0PLSR 
CONVERT2 
TOOLKIT 
INIDWNLD 


Oberste Linie bei BITEDITOÖR-Zeichen- 


sätzen fällt 


weg, da nur 8 Druck 


nadeln 


zur Verfügung stehen. Der Zeichenoffset 


ist 16 Bytes 
halten nicht 


ASL 
INC 
INC 
INC 
LDA 
STA 


Downloading 


INIDWNLD LDA 


JSR 
LDA 
JSR 


Die ersten $200 By 
druckbare Zeichen. 


OFFSET ‚Offset = 
IND ;‚überstes 
IND+1 ‚und Cont 
IND+1 ‚überspri 
#0PASL 

CONVERT2 
initialisieren 

#ESC 

PRINT 

EI ZH 

PRINT 


tes ent- 


16 

Byte 
rol's 
ngen 
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TurtioGraphics-"/brary-Paket 


u ListDir „Volunes 


u BE 


von Dieter Geiß 


Turtle-Utilities für Fenstertechnik 
und Apple-Maus in einfacher 
und doppelter Hires-Grafik für 
Pascal 1.1/1.2 auf Apple II+/e/c 
mit Maus oder Joystick. 

2 Disketten mit umfangreichem 
Manual, DM 98,- 


Hl en 


SYSTEM.CHARSET 2 Fr Files 208 Diks 
eek "CHARSET BÜTTERDEND. ia 20 


GERMAN. Ei ie 109 Desktop 


N 
ERUNCH.CODE al r; 
- CÖDE I| Filenane: DESKTOP 


tLER 2, 
ERS NEN) 2] | 

I coLoR. Tan Zi Hi | 

IIi En m mm. SYSTENEDITOR 181 | INN 

Eu... 

Eh ıl an 1 

i I l ı\ I 


Das Utility-Paket besteht aus vier Modulen, die von Programmierern benutzt werden können, um 
professionelle grafische Anwendungsprogramme in Pascal zu schreiben. 





Benötigt wird ein Apple Pascal Betriebssystem, entweder die Version 1.1 oder die neue Version 
1.2. Bestehende Programme laufen ohne Einschränkung mit der neuen „TurtleGraphics”, wenn 
diese nicht zu viel Speicherplatz verbraucht haben, da die neue „TurtleGraphics“ umfangreicher 
als die alte ist. Für Fenstertechnik ist 128K-Pascal + Maus erforderlich. 


Im einzelnen bietet das Paket folgende Möglichkeiten: 


— volle Kompatibilität mit der alten „TurtleGraphics“ 

— lauffähig auf Pascal 1.1 und 1.2 

— funktionsfähig mit angeschlossener UltraTerm-Karte 

— alle zeitkritischen Funktionen in reinem Assembler programmiert 

— Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 

— für Apple Ilc und Apple Ile mit erweiterter 80-Zeichen-Karte Benutzung der doppelten Hires- 
Grafik mit 560 x 192 Punkten bzw. 16 neuen Farben möglich 

— schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 

— Linearisierung von Teilen des Hires-Schirms 

— Benutzung mehrerer Zeichensätze gleichzeitig 

— Laden und Speichern von Hires-Bildern mit Ausdruck über Pascal-SUPERDUMP 

— Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 

— drei verschiedene Schriftarten: Fett-, Breit- und Proportionalschrift, beliebig mischbar 
(acht Möglichkeiten) 

— spezielle schnelle Ausgabe von Text 

— Cursor bei Eingabe frei programmierbar 

— Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL-Werten im Grafikmodus 

— Menüzeile wie beim Macintosh (Die nachfolgenden Module benötigen Maus/Joystick) und 
128K-Pascal 

— Pull-down-Menüs 

— Laden und Speichern von Fenstern (Windows) 

— Öffnen von Fenstern 

— Aktivieren und Deaktivieren von Fenstern 

— Verschieben und Vergrößern/Verkleinern von Fenstern 

— Scrolling von Fensterinhalten in allen vier Richtungen 

— Umfangreiche Demos als Quelltexte. 


Hüthig Software Service - Postfach 102869 - 6900 Heidelberg 
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7F49: 
TFaB: 
TFAE: 
T7FSO: 


7FS3: 
TFöS: 


EST: 
T7F59: 
7FSB: 
TFSD: 
TESE: 
TF6L: 
TF62: 
TF64A: 
TFSE: 
TF6T: 
TF69: 


TF6B: 
TF6ED: 


TR6R- 
er: 
T7FT73: 


TFT6: 
TErS: 


TFTR: 
PERG: 
TFTE: 
TESL: 
TFSA: 
TF85: 


TF8T: 
TF89: 
TRBG: 
TPFEE: 


i TF91: 
TF93: 
TF96: 
TF99: 
TFA: 
7FSC: 


TESE: 
TFAO: 
TFAl: 
TFAS: 
TFABS: 
TFAT: 


TFAB: 
TFAB: 
TFAD: 
TFAF: 


ZEBI® 


49 


49 


9D 


A5 


AR 
BD 
49 
SD 
CA 
10 


A5 
20 
Ag 
20 


A2 
BD 
20 
E8 
EO 
90 


Ad 


65 
85 
90 
E6 


E6 
A5 
c9 
90 


A9 


20 
CE 


00 
06 
00 


F4 


08 
F7 


08 
BE 


FB 
07 


00 
DT 
FA 


FA 
OD 


07 
FA 
FF 
FA 


Fö 


CH 
EO 
48 
EO 


00 
r4 
EO 


08 
F5 


06 
FD 
06 


02 
07 


CE 


TE 
AG 


84 


10% 


{ey 


CE 


0% 


10% 


Zr 


TE 


TF 


TF 
di 


125 
126 
127 
128 
129 
130 
131 
152 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
173 
176 
IT 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
ll 
212 
213 
214 
215 


#* 


LDA 
JSR 
LDA 
JSR 


+ESC 
PRINT 
ET 
PRINT 


Zeichenschleife für Downloading 


* initialisioren 


* 


LDA #5PACE 
STA CHAR 


Zeichen-Bit-Muster vom DOS Toolkit bzw, 


* BITEDITOR in das Imagewriter-Format um- 


* formen 
CONVERT LDY #$%00 
CONVERTl LDA (IND),Y ‚Byte laden 
LDX #500 
CONVERT2 LSR :gepokt 
ROR DATA,X ı:Zeichen-Bits 
INX ;in Datenpuf- 
CPX #08 ;fer schieben | 
BCC CONVERT2 
INY 
CPY #$08 
BCC CONVERTI 
TOOLKIT? LDA TOOLKIT 
BEQ INVERT? 
* Farb-Bit (= 8. Druckspalte) beim DOS- 
* Toolkit-Zeichensatz ausmaskieren, da 
x auf dem Imagewriter die Zeichenzeilen 
* nicht wie in der HGR-Grafik um einen 
* halben Punkt verschoben werden können. 
LDA #00 
LDX #$07 
STA DATA,X 
INVERT? LDA INVERS 
BEQ DOWNLOAD 


» Zeichen invertieren 


INVLOOP 


x Bit-Muster 


* Zuerst 


LDX #$07 

LDA DATA,X ;Alle Daten-Bytes 
EOR #%11111111 ;invertieren und 

STA DATA,X ‚wieder speichern 
DEX ‚fertig? 

BPL INVLOOP 


an Imagewriter übertragen 


die Einleitung mit Zeichen- und 


* Zeichenbreitencode... 


DOWNLOAD LDA CHAR ;Zeichen holen 
JSR PRINT 
LDA #WIDTH+$40 ;Zeichenbreite 
JSR PRINT 

* ...dann die eigentlichen Daten-Bytes zum 


* Drucker übertragen 


DOWNLDO 


* Zeiger 


* nächstes Zeichen 


NEXTCHAR 


LDX #500 

LDA DATA,X ‚Bytes aus vor- 
JSR PRINT ;‚bereiteter Ta- 
INX ;belle holen | 
CPX #$08 ‚schon fertig? 
BCC DOWNLDO ‚weiter 

auf nächstes Zeichen setzen 

LDA IND ;Zeichenbasis 
CLC ‚laden und 

ADC OFFSET ‚Offset addieren, 
STA IND ‚um nächstes 

BCC NEXTCHAR ‚Zeichen zu 

ING IND+1l- ;bekommen 

INC CHAR Buchstaben 

LDA CHAR ‚erhöhen 

CMP #DEL ‚schon fertig? 
BCC CONVERT ‚nein 


* Mit Ctrl-D das Downloading beenden 


LDA #CTRLD 


JSR PRINT 


* Läuft das Programm auf einem Apple 
* mit SSC oder auf einem Ilo? 


LDA IDl «ID-Byte #1 
CMP #$06 

BNE LFPATCH ;-> kein IlIc 
LDA ID2 ‚ID-Byte #2 
BNE LFPATCH ;-—> kein IlIc 
RTS ‚Alles fertig! 


Bei der SSC wird aus mir unbekannten 
Gründen das "LF nach CR"-Flag auf Null 
gesetzt. Die Folge davon ist, daß alle 
Zeichen, die auf dem Drucker ausgegeben 
werden, in eine Zeile gedruckt werden. 
LFPATCH setzt dieses Bit wieder auf |. 


=*k + * 


LFPATCH LDA 
ORA 
STA 
RTS 


MISCFLG 
#501 
MISCFLG 


LE nach ER 
‚auf kins 
‚setzen 

n ‚nun alles OKI 
« Anm: Die folgenden Ausgaberoutinen sind 

* geringfügig modifiziert aus dem Pro- 
* gramm "Superdump" von Dieter Geiß 

* entnommen. Das Programm erschien im 
* Peeker 6/85, Seite 2Zff. | 


PEREERETRETLTELTOLDETTI ENT L 2 202220 
* SSC initialisieren * 


PREIETEEI I U 2222 u 2 222 2 un 
/ 


INITSSC LDA S$CFFF , :ROMs abschalten 
LDA $C10D ;‚Offset-Byte 
LDX #$C1 ;Register X und Y 
LDY #$10 :für Slot 1 setzen 
STA IND ;Sprung zur Karte 
STX IND+l ‚vorbereiten 
STY NO ;NO setzen 
JMP (IND) ins ROM 


ERRERETERLOLD ET LIU I 2 0 00 2 02 2 20 
* Ausgabe auf SSC * 
PERUDERTRTLLTLULOETTLT 222 00 2 20 220 


PRINT PHA Zeichen retten 
WAIT LDA $C099 :Status-Reg. Slot 1 
AND #$10 ; fertig? 
BEQ WAIT ‚noch nicht 
LDA $C099 :Status-Register 
AND READY ‚fertig? 
BNE WAIT wieder nicht 
PLA ‘Zeichen holen 
STA $C098 :und ausgeben | 
RTS | 


EDER ELTELLTDELE TIL 2 2 2 2002202 220 
* Interner Datenpuffer = 
EERTRTTTTTOLTELLULTTN I 0 0 0 202 2022 20 
HEX 00000000 


DATA ;‚Zwischenspeicher 


HEX 00000000 ‘für Zeichen-Bytes 


BSAVE FONT.CONVERT, A$0300, L$00B8 


TFB3: 20 EO 7F 216 
217 
218 
219 
220 
TFBG: AD BZ FB 221 
T7FB9: C9 06 222 
TFBB: DO 06 223 
T7FEBD: AD CO FB 224 
7FCO: DO 01 225 
TFC2: 60 226 
227 
228 
229 
230 
231 
232 
233 
234 
TFC3: AD F9 07 235 
TFC6: 09 Ol 236 
T7FCB: BD F9 07 237 
TFCB: 60 238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
7FCC: AD FF CF 250 
TFCF: AD OD c1 251 
TeD2: A2 Cl 252 
TFDA: AO 10 253 
TFD6E: 85 06 254 
TFD8: 86 07 255 
FDA: 80 F8 06 256 
7EDD: 6C 06 00 257 
258 
259 
260 
261 
262 
TEEO: 48 263 
TFEl: AD 99 CO 264 
TFEA: 29 10 265 
TFEGS: FO F9 266 
T7FES: AD 99 CO 267 
TFEB: 25 FC 268 
TPED: DO F2 269 
TFEF: 68 270 
TPFO: 8D 98 CO 271 
TFF3: 60 272 
273 
274 
275 
276 
277 
T7FFA: 00 00 00 278 
TFFT: 00 
TEFS: 00 00 00 279 
TFFB: 00 
252 Bytes 
FONT.CONVERT 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 


RER 
FONT.CONVERT 


Carl Frieder Mahr, 1986 


= kr * 
;=#t a + * 


Le ET U U So D 2 ou 20 
ORG 30300 


konvertiert DOS-Toolkit-Zeichensätze in 
das BITEDITOR-Format und umgekehrt, 


*x** %* 


Aufruf aus FONT.LOADER mit CALL 768 


* Label-Definitionen 
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drucker 44 


18 IND EQU %06 0357: A9 80 109 LDA #>PONT 
19 IND2 EQU $08 0359: 85 07 110 STA IND+ 
20 TEMP EQU $CE 035B: 20 60 03 111 JSR ERAPAGE SITIck 
2l CHAR EQU $CF 035E: E6 07 112 ING IND+l 
22 SPACE EQuU- 27) 113 
23  DEL EQU $7F 114 x» Speicher-Page löschen 
24 15 
25 x Toolkit: O0: BITEDITOR-Zeichensatz 0360: AO 00 116 ERAPAGE LDY +#$00 
26 = 1: DOS-Toolkit-Zeichensatz 0362: A9 00 Il? LDA #$00 
27 0364: 91 06 118 ERAPAGEO STA (IND},Y 
28 TOOLKIT EQU $FB ;Flag 0366: C8 119 INY 
29 0367: DO FB 120 BNE ERAPAGEO 
30 * Zeichensatzbeginn und -längen 0369: 60 121 RTS 
31 122 
32 FONT EQU $8000 123. este rer 
33  DTLEN EQU $0300 124 #* BITEDITOR -> D0S Toolkit * 
34  BELEN EQU $0800 125. Beer 
35 126 
36 * Zeichsatzformat feststellen 127 *& DOS-Toolkit-Flag setzen 
57 128 

0300: A5 FB 38  CONVERT LDA TOOLKIT 036A: ES FB 129 BE:TO:DT INC TOOLKIT 

0302: FO 66 39 BEQ BE:TO:DT 130 


40 131 & Zeichenbasis initialisieren 


al ERRPRTITETTELTELTELTETTTTDU 132 
42 * DOS Toolkit -> BITEDITOR * 036C: A9 01 133 LDA #<FONTHL 
43 EEE Zoo O3SE: 85 06 134 STA IND 
44 0370: A9 82 135 LDA #>FONT+80200 
45 * BITEDITOR-Flag setzen 0372: 85 07 136 STA IND+ 
46 0374: A9 00 137 LDA #<FONT 
0304: C6 FB 47  DT:TO:BE DEC TOOLKIT 0376: 85 08 138 STA IND2 
48 | 0378: A9 80 139 LDA #>FONT 
49 * Zeichenbasis initialisieren 0374: 85 09 140 sSTA IND?2+1l 
50 | 141 
0306: A9 F7 51 LDA #<FONT+DTLEN-9 ]42 x Zeichenschleife initialisieren 
0308: 85 06 52 STA IND 143 
030A: A9 82 53 LDA =>FONT+DTLEN-Ll 037C: A9 20 144 LDA #SPACE 
030C: 85 07 54 STA IND+l 037E: 85 CF 145 STA CHAR 
030E: A9 FO 55 LDA +<FONT+BELEN-16 146 
0310: 85 08 56 STA IND2 147 x zeichenweise Konvertierung 
0312: A9 87 57 LDA #>FONT+BELEN-1 148 
0314: 85 09 58 STA IND2+1 0380: AO 07 149 CONVBE LDY #$07 
59 0382: Bl 06 150 CONVBEO LDA (IND),Y 
60 x Zeichenschleife initialisieren 0384: 20 AD 03 151 JSR REVERT 
61 152 
0316: A9 7F 62 LDA #DEL 153 x Farb-Bit für DOS-Toolkit-Zeichensatz 
0318: 85 CF 63 STA CHAR 154 & auf 0 Setzen 
64 155 
65 * nicht benutzte Daten-Bytes auf 0 setzen 0387: 29 7F 156 AND 3$7F 
56 | 0389: 91 08 157 STA (IND2),Y 
o31lA: AS 00 67 CONVDT LDA #$00 038B: 88 158 DEY 
031C: AQ 00 68 LDY #500 038C: 10 F4 159 BPL CONVBEO 
O31E: 91 08 69 STA (IND2),Y 160 
0320: AO OF 70 LDY #$0F 161 x Zeiger auf nächstes Zeichen 
0322: 91 08 71  CONVDTO STA (IND2),Y 162 
0324: 88 72 DEY 038E: A5 06 163 LDA IND 
0325: CO 09 13 CPY #$09 0390: 18 164 CLE 
0327: BO F9 TA BCS GCONVDTO 0391: 69 10 165 ADC #810 
75 0393: 85 06 166 STA IND 
76 * zeichenweise Konvertierung | 0395: 90 02 167 BCC CONVBEL 
77 0397: E6 07 168 INC IND+ 
0329: AO 08 78 LDY #308 0399: A5 08 169 CONVBEl LDA IND2 
032B: Bl 06 73 CONVDT1 LDA (IND),Y 039B: 18 170 CLC 
032D: 20 AD 03 80 JSR REVERT 039C: 69 08 17] ADC #$08 
0330: 91 08 81 STA (IND2),Y 039E: 85 08 172 STA IND2 
0332: 88 82 DEY 03A0: 90 02 173 BCC CONVBE2 
0333: DO F6 83 BNE CONVDTI 03A2: E6 09 174 INC IND2+l 
84 0344: E6& CF 175 CONVBE2 INC CHAR 
85 x Zeiger auf nächstes Zeichen 03A6: A5 CF 176 LDA CHAR 
86 03A8: C9 80 er CMP #DEL+1 ; fertig? 
0335: A5 06 87 LDA IND 03AA: 90 D4 178 BCC CONVBE ‚weiter 
0sS7 238 88 SEC 03AC: 60 179 RTS 
0338: ES 08 89 SBC #808 180 
035A: 85 06 90 STA IND 181 * Zeichen-Byte umdrehen 
033C: BO 02 91 BCS CONVDT2 182 
033E: C6 07 92 DEC IND+HLl 03AD: A2 08 183 REVERT LDX #$08 :8 Bits 
0340: A5 08 953  CONVDT2 LDA INDZ O3AF: OA 184 REVERTO ASL :links raus 
0342: 38 94 SEC 03B0: 66 CE 185 ROR TEMP ‘rechts rein 
0343: E9 10 95 SEC #$10 03B2: CA 186 DEX 
0345: 85 08 96 STA IND2 0353: DO FA 187 BENE REVERTO 
ı BO 02 97 BCS CONVDTS 03B5: A5 CE 188 LDA TEMP 
0 49: cs 09 98 DEC IND2+l 03B7: 60 189 RTS 
034B: C6 CF 99  CONVDT3 DEC CHAR 
034D:“A5 CF 100 LDA CHAR | 184 Bytes 
034F: C9 20. 101 CMP_ #SPACE ‚fertig? 
0351: BO C7 102 BCS CONVDT ‚weiter 
103 
104 #* Bereich der Ctrl-Zeichen auf 
105 x* Null setzen 
106 
0353: A9 00 107 LDA #<FONT 
0355: 85 06 108 STA IND 
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von Thilo Schön 


Mein Ziel war es, ein einfaches und Über- 
sichtliches Applesoft-Programm zu schrei- 
ben, das mit möglichst großem Komfort 
und vielen Möglichkeiten helfen sollte, die 
Verwaltung des Geldes im Haushalt zu 
übernehmen. Das im folgenden beschrie- 
bene Programm erfüllt diese Änforderun- 
gen und hat sich in der Praxis bewährt. 


1. Die verwalteten Daten 


Das wichtigste Problem war zunächst zu 
entscheiden, welche Daten erfaßt und wie 
diese verwaltet werden sollten. Ich ent- 
schloß mich, die Einnahmen und Ausga- 
ben in verschiedene Sparten aufzuteilen, 
die einen besseren Überblick und eine 
leichtere Verwaltung ermöglichen. Die 
Sparten können vom Anwender frei ge- 
wählt werden. Mögliche Namen sind zum 
Beispiel AUTO, HOBBY, KLEIDUNG, LE- 
BENSM., SPORT oder EINNAHMEN, Ein 
vollständiger Datensatz enthält das aktuel- 
le Datum, die Sparte, eine Bemerkung und 
den genauen Geldbetrag in DM. 


2. Die Ausgabe 


Ein weiterer wichtiger Punkt ist die Ausga- 
be der gespeicherten Daten. Hier gibt es 
drei Möglichkeiten. 

— Die erste gibt eine Übersicht aller Einträ- 
ge. Man kann dabei auch einzelne Sparten 
auswählen, so daß zum Beispiel nur die 
Einträge der Sparte AUTO ausgegeben 
werden. 
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Haushaltsverwaltung 


auf dem Apple llc/lie 


— Als zweites können die Einträge der 
einzelnen Sparten summiert werden, wo- 
bei auch eine Gesamtbilanz erstellt wird. 
Auch hier ist es möglich, nur einzelne 
Sparten oder nur bestimmte Zeiträume zu 
berechnen. 

— Diese Berechnungen können schließlich 
als Balkendiagramm ausgegeben werden 
(s. Grafik). Dabei veranschaulicht ein grau- 
er Teilstrich 25 Prozent der Gesamtaus- 
gaben. 

Die Übersicht und die Berechnungen kön- 
nen auch auf einen Drucker ausgegeben 
werden. Das Programm wurde mit einem 
Imagewriter getestet. Da jedoch keinerlei 
Steuerzeichen verwendet werden, läuft es 
auch mit beliebigen anderen Druckern. 


3. Die Grafik 


Für die grafische Darstellung wird die dop- 
pelt niedrigauflösende Grafik verwendet, 
da die hochauflösende im Speicher mit 
dem Programm kollidieren würde. Beim Ile 
kann die Double Lores nicht in ähnlich 
einfacher Weise realisiert werden wie 
beim Ilc. Daher müssen hier für die einfa- 
che Grafik die unter dem Listing angege- 
benen Zeilen ersetzt werden. 


4. Die Programmgliederung 


In dem Programm gibt es vier Hauptme- 
nüs, die durch Großschreibung gekenn- 
zeichnet sind. Zwischen diesen Hauptme- 
nüs (DISKETTE, NEUEINGABE, ÄNDE- 
RUNG und AUSGABE) können Sie belie- 





big hin- und herspringen. Die eigentlichen 
Programmfunktionen sind durch Klein- 
schreibung gekennzeichnet. In allen Pro- 
grammteilen gibt es die Möglichkeit, bei 
Rückfragen des Programms durch die Ein- 
gabe von „<" (anstatt eines Linkspfeils) 
zum vorhergehenden Hauptmenü zurück- 
zuspringen. 

Abschließend ist zu sagen, daß sich das 
Programm in den drei Monaten, in denen 
es getestet werden konnte, hervorragend 
bewährt hat. Wenn man alle Kassenbelege 
aufhebt und jeden Abend alle Ausgaben — 
und auch die Einnahmen — gewissenhaft 
einträgt, dann hat man jederzeit einen ge- 
nauen Überblick über seine Finanzen und 
kann am Ende des Monats nachprüfen, 
wieviel Geld man für was ausgegeben hat. 
Es hat sich übrigens als günstig herausge- 
stellt, für jeden Monat eine Datei zu füh- 
ren. Dann hat man mit dem geringsten 
Zeitaufwand den besten Überblick über 
seine Ein- und Ausgaben. 


Kurzhinweise 


1. Zweck: 

Programm zur Haushaltsverwaltung 
2. Konfiguration: 

IIc oder Ile; 

DOS 3,3 oder ProDOS 
3. Test: 

RUN HAUSHALT 

4. Sammeldisk: 
HAUSHALT 
HAUSHALT.4O 

DATEI 
(Applesoft-Programm) 
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HAUSHALT 


1000 
1010 
1020 
1050 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


1110 
1120 
1130 
1140 
1150 


1160 


1170 
1180 
1190 
1200 
1210 


1220 
1230 


1240 


1250 
1260 


1270 


1280 
1290 
1300 


1310 
1320 


1350 
1340 
1350 


1360 


1370 
1580 


1390 
1400 
1410 


1420 


14530 
1440 
1450 
1460 
1470 


REM $$$5$555HH5HH HH HH HHEH$ 

REM $$ Haushalt $$ 

REM $ von Thilo Schön $ 

REM $$ Dezember 1985 $$ 

REM $$5555H HH H HH HH 5555 $ 

D$ = CHR$ (4): PRINT D$"PR#3”" 

Er — 1000 

DIM DT$(DI},DD$(DI),DG$(DI),DS(DI),DS$(15),BS{15),BE(15) 
REM _____Diskette___—_ 

TEXT : NORMAL HOME PRINT 

MT${1) = "Einladen einer Datei":MT$(2) = "Speichern einer 
Datei":MT$(3) = "Neueröffnung einer Datei":MT$(4) = 
"NEUEINGABE":MT$(5) = "ÄNDERUNG":MT$(6) = 
NAUSGABE":MT$(7) = "ENDE" 

MA = 7:MU$ = "DISKETTE": GOSUB 2990: IF A < 4 THEN 1130 
ON A - 3 GOTO 1500, 1780 ,2250, 2960 

ON A GOSUB 1140,1250,1340: GOTO 1080 


REM -——— Laden---—--— 

HOME PRINT : INVERSE : PRINT "Einladen einer Datei": 
PRINT 

NORMAL : PRINT "Geben Sie den Namen der Datei oder 
<RETURN> für den Catalog ein : ": INPUT N$ 

IF N$ = "" THEN PRINT D$"CATALOG": GOTO 1160 

IPÜ NS = zur THEN RETURN 


PRINT D$'"OPEN ";N$: PRINT D$"READ ";N$ 

INPUT DD$,DA,DS: FOR LI = 1 TO DS: INPUT DS$(LI): NEXT LI 
PRINT : PRINT "Die Datei enthält ";DA;" Einträge und 
wurde an WSDD6 2" eröftinet,." 

IF DA = ß THEN 1240 

BORLTS 1 TODAIINPUTILDSIET I DIS EL SDESL LE) DS LIT: 

NEST EL 


PRINT : PRINT D$"CLOSE ";N$: PRINT "EINLADEN BEENDET - 
Bitte drücken Sie eine Taste, ";: GET A$: RETURN 

REM ——--—. Speichern---—. 

HOME : PRINT : INVERSE PRINT "Abspeichern einer Datei": 
NORMAL 

PRINT : PRINT "Geben Sie den Namen der Datei ein ( 
ZRETURN> = UNg:" au: TNEUT NNS: IE NUNG = "ll TEEN 
RETURN 


IF NN$ < > "" THEN N$ = NN$ 

PRINT D$"OPEN ":N$: PRINT D$"WRITE ":N$ 

PRINT DD$: PRINT DA: PRINT DS: FOR SI = I TO DS: PRINT 
DS$(SI): NEXT SI 

IF DA = 0 THEN 1330 

FOR SI = 1 TO DA: PRINT DD${SI): PRINT DT$(SI): PRINT 
DG$(SI): PRINT DS(SI): NEXT SI 

PRINT D$"CLOSE ";N$: RETURN 


REM ---—-Offnen------—-—- 

HOME : PRINT INVERSE PRINT "Neueröffnen einer Datei": 
NORMAL : POKE 34,2 

PRINT : PRINT "Geben Sie den Namen der Datei ein !: "!: 
INPUT N$ 

HOME : IF N$ = !'<'' THEN RETURN 

PRINT : INPUT "Wollen Sie die Spartennamen von einer 


alten Datei übernehmen (J/N)? '";A$: IF A$ = "N" OR A$ = 
In" THEN HOME : GOTO 1420 


INPUT "Geben Sie den Namen der alten Datei ein ":NAS 
PRINT D$"OPEN "NAS: PRINT D$"READ "NA$ 
INPUT AX$.XX .XX: FOR 0I = 1 TI0 &8: INPUT TBSSIOT): VTAB 04 


+ 5: PRINT OI;: HTAB 5: PRINT "--> ";DS$(0I): NEXT OI: 
PRINT D$'CLOSE "NA$: GOTO 1470 

PRINT "Sie können nun die Namen von bis zu 15 Sparten 
{maximal 10 Buchstaben) eingeben.Danach geben Sie 
<RETURN> ein." 

PRINT :0I =] 

VTAB 0I + 5: PRINT OL;: HTAB 5: INPUT "--> ";DS$(0I) 

IF LEN (DS$(0I)) > 10 THEN 1440 

IF 01 < 15 AND Dss$ (OL) < > Me TREN 01 = OT +: GOTO 1440 
PRINT : INPUT "War alles richtig (J/N)? ";A$: TF A$ = "N" 


"OR A$ = "'n" THEN 1430 


1480 


1490 
1500 
1510 


1520 
1530 
1540 
1550 
1560 
1970 


1580 


PRINT : INPUT "Geben Sie bitte das heutige Datum ein 
"-DD$:DA = 0:DS ='0I - 1 

POKE 34,0: GOSUB 1290: RETURN 

REM Neueingabe 
TEXT HOME :MT$(1}) = "Neueingabe von Datensätzen":MT$({2) 

= "DISKETTE":MT$(3) = "ÄNDERUNG! :MT${4) = 

NAUSGABE'":MT$(5) = "ENDE" 

MU$ = "NEUEINGABE":MA = 5: GOSUB 2990 

IF A= 1 THEN GOSUB 1550: GOTO 1500 

ON A - 1 GOTO 1080, 1780,2250, 2960 








REN -—--—-—. Neueingabe--—— 

DA=DA+]1 

HOME : PRINT : INVERSE : VTAB 1: PRINT "Neueingabe von 
Datensätzen": NORMAL PRINT : POKE 34,2 

PRINT "DATUM ("&DESIDA = 13:47 :ur PRINT SPCL 
Banane ne TERENT FRINT USPARTE( I -": DS," EU PRINT 
SPCI{ an TER erg PRINT : 


PRINT "BEMERKUNG: " | 
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1590 


1600 
1610 
1620 


1630 
1640 


1650 


1660 
1670 


1680 
1690 
1700 


1710 


Ir 20 


1730 
1740 


1750 
1760 


1770 
1780 
17909 


1800 
1810 
1820 
1830 
1840 


1850 
1860 


1870 
1880 


1390 
1500 
1820 


1920 
1930 


1940 
1950 


1960 
1970 


1980 


1990 
2000 
2010 
2ORD 


2050 


2040 
2050 
20680 
2070 


2080 
2090 


2100 
2110 
2120 


2130 
2140 


2150 
2160 
2170 


PRINT spe 72 SSH ULLA E LADATE GET BAUER DR EEE SUESEI EEE EB ENTE EL BET EN 


PRINT : PRINT "GELDBETRAG (+/-):"”: PRINT SPC{ 

bey) EDEN 

YLAB 21% FOR EL =2 110 DS PRINTORT = DSSIEL 2 ONEAT ET 
VTAB 19: PRINT : FOR EI = 1 TO 79: PRINT "_";: NEXT EI 


VTAB 3: HTAB 18: INPUT "";DD$(DA): IF LEN (DD$(DA)) > 8 
THEN 1620 

IF DD$(DA) = "<" THEN DA = DA - 1: GOTO 1770 
IF DD$(DA) = "" THEN DD$(DA) = DD$(DA - 1): 
18: PRINT DD$(DA - ]) 

VTAB 6: HTAB 18: INPUT "";DS(DA): IF DS{DA) > DS OR 
DS(DA) < 1 THEN 1650 

VTAB 6: HTAB 18: PRINT DS$(DS(DA)) 

VTAB 9: HTAB 18: INPUT "";DT$(DA): IF LEN (DT$(DA)) > 38 
THEN 1670 

VTAB 12: HIAB 718: INPUT M-De- YTAB 17: [PRINT SPC 70) 
DG$(DA) = STR$ ( ABS (DG)}:PU = 0:ZL = LEN (DG$(DA)) 


VTAB 3: HTAB 


FOR I = 1 TO 10: IF MID$ (DG$(DA),I,l1) = "." THEN PU = 
IT = 10 

NEXT I: IF PU = O0 THEN DG$(DA) = DG$ (DA) + ",":PU = LEN 
(DG$ (DA) ) 

DES (DA) - DES (DAL + MIDS (00, 1,2 = (ZE-—FUN): IEHDGI< 
O THEN DG$(DA) = "-" + DG$(DA} 

IE BG > = 0 IHEN DESIDA) = "rt & DES (DA) 

PRINT : VTAB 16: INPUT "War die Eingabe korrekt (J/N)? 


"AG: IF AG = "NT OR A$ = "nm! THEN 1600 

IF FL = 1 THEN RETURN 

INPUT "Wollen Sie noch einen Datensatz eingeben (J/N)? 
rag: IE AS = U) ’OR Ab = lt THEN 1550 

POKE 34,0: RETURN 

REM ____ Änderung 


TEXT : HOME :MT$(i1) = "Ändern eines Datensatzes":MT${2) = 
"Löschen eines Datensatzes":MT$(3) = "DISKETTE":MT$(4) = 
FNEUEINGABE":MT$(5) = "AUSGABE" :MT$(6) = "ENDE!" 


MU$ = "ÄNDERUNG":MA = 6: GOSUB 2990 

IF A< 3 THEN ON A GOSUB 1900,1830: GOTO 1780 

ON A — 2 GOTO 1080, 1500,2250,2960 

REM ---—. Löschen---— 

HOME : PRINT INVERSE : VTAB 1: PRINT "Löschen eines 
Datensatzes": NORMAL : PRINT : POKE 34,2 

GOSUB 1960: REM Suchen 

VTAB 17: PRINT "Löschen des Datensatzes mit <SPACE> ";: 
GET A$: PRINT IE 45 = We THEN 1859 

IF A$ < > !" " THEN 1860 

FOR LI = SF + 1 TO DA:DD$(LI — 1) = DD$(LI):DT$(LI - 1) = 
DTS(ET):DGS(EL = 1 = DESILL) DS(LI = 1) = DS(EI) NEXT 
LI:DA=DA-]1 

POKE 34,0: RETURN 

REM ---—— Andern----—--— 

HOME : PRINT INVERSE : VTAB 1: PRINT "Andern eines 
Datensatzes": NORMAL PRINT : POKE 34,2 

GOSUB 1960: REM Suchen 

VTAB 17: PRINT "Ändern des Datensatzes mit <SPACE> ";: 
GET A$: PRINT : IF A$ = "<" THEN 1920 








IE AS < > U WTHEN 1930 

ADA = DA:DA = SF:FL = 1: GOSUB 1600: FL = 0:DA = ADA: 
RETURN 

REM Suchen 

HOME : VTAB 3: PRINT "Nach welchem Kriterium soll der 


Datensatz gesucht werden ®?": PRINT : PRINT "1 -— DATUM": 
PRINT "2 - SPARTE": PRINT "3 - BEMERKUNG": PRINT "4 — 
GELDBETRAG" 

VTAB 10: INPUT "Geben Sie das gewünschte Kriterium (1-4) 
eın WAS PRINT IF A$ = "<'" THEN POP GOTO 1780 

SK = VAL (A$): IF SK < 1 OR SK > 4 THEN 1980 

HOME :SA = 1: ON SK GOTO 2010,2050,2110,2160 

REM +H Datum HH 

INPUT "Geben Sie das Datum ein : 
1970 

SF= 0: FOR SI = SA TO DA: IF DD$(SI) = AA$ THEN SF = 
SI:SI = DA ß 

NEXT SI: GOTO 2200 

REM +H4++S5parteH+ 

FOR St = 1 TO DS: PRINT ST: = 1 DSS(SL): NEXT ST: PRINT 
VTAB 23: INPUT "Geben Sie die Nummer der Sparte ein 
n»AAS: IF AA$ = "<" THEN 1970 

AA = VAL (AA$): IF AA < 1 OR AA > (DS) THEN 2070 

SF = 0: FOR SI=SA TO DA: IF DS{SI) = (AA) THEN SF = 
SI:SI = DA 

NEXE SL. GOTV 2200 

REM HHH+Benmerkungt+ 

VTAB 5: PRINT "Geben Sie die Bemerkung ein :": 
ie AA: Te AAG = eu THEN 1970 

AA=LEN {AA$): IF AA > 42 THEN 2120 

SF=0: FORSI=SATODA: IF LEFT$ (DT$(SI),AA) = LEFT$ 
({AA$,AA) THEN SF = SI:SI = DA 

NEXT SI: GOTO 2200 

REM +H+GeldbetragsH+ 

INPUT "Geben Sie den Geldbetrag ein 
THEN 1970 


";AA$: IF AA = "'<! THEN 


INZFUT 


";AAS$: IF AAB = "<" 
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2180 


2190 
2200 


2210 


R2RO 


2250 
2240 


2250 
2260 


RRTO 
2280 
2290 
2500 
2310 
25R0 
2330 
23540 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
RARO 
2450 
2440 
RAID 
24650 
2470 
2480 
2490 


2500 


2510 
2520 
2550 
2540 
2550 
2560 


2570 
2580 


2590 


2600 


2610 


2620 


2630 


2640 


2650 
2660 


2670 
2680 
2690 


AA = VAL (AA$):SF = 0: FOR SI = SA TO DA: IF VAL 
(DG$(SI}) = (AA) THEN SF = SI:SI = DA 

NEXT SI: GOTO 2200 

IFSF= 0 THEN PRINT "Nichts gefunden !": 
FOR # = 1 TO 1000: NEXT W: GOTO 1970 

HOME : VTAB 3: PRINT "DATUM:" TAB{ 18)DD$(SF): VTAB 6: 
PRINT "SPARTE:" TAB{ 18)DS$(DS(SF}): VTAB 9: PRINT 
"BEMERKUNG:" TAB( 18)DT${SF): VTAB 12: PRINT "GELDBETRAG: 
" TAB( 18) VAL (DG$(SF)) 

VTAB 16: INPUT "Wollen Sie weitersuchen (J/N}? ";A$: IF 
AB <> "NT AND AS < > "nT AND AS < > "j" AND AS < > "oJ" 
THEN 2220 

IF A$ = "J" OR A$ = "j" THEN SA = SF + 1: ON SK GOTO 
2030,2090,2140,2180 


RETURN 

REM ____ Ausgabe__ 

TEXT : HOME :MT${l) = "Übersicht ausgeben":MT$(2) = 
"Summen berechnen":MT$(3) = "DISKETTE":MTS(4) = 


NNEUEINGABE":MT$(5) = "ÄNDERUNG":MT$(6) = "ENDE" 
MA = 6:MU$ = "AUSGABE + BERECHNUNG": GOSUB 2990 
IF A< 3 THEN ON A GOSUB 2300,2510: GOTO 2250 

ON A - 2 GOTO 1080,1500,1780,2960 

REM -—-—— Übersicht---——- 
HOME : PRINT : INVERSE : 
ausgeben": NORMAL : PRINT 
INPUT "Wieviele Sparten wollen Sie ausgeben [A=Alle]? 
"AS: IF A$ = "<" THEN RETURN 

IF A$ = "A" OR A$ = "a" THEN BA = DS: FOR I = 1 T0 
DS:BS({I} = I: NEXT : GOTO 2390 

BA = VAL (A$): IF BA < 1 OR BA > DS THEN 2510 

VTAB 21: FOR EI = 1 TO BS: PRINT EI; "=";DS$(EI),: NEXT EI 
VTAB 19: PRINT : FOR EI = 1 TO 79: PRINT "_";: NEXT EI 
VTAB A: PRINT : PRINT "Geben Sie nun die auszugebenden 
Sparten ein :" 

FOR I = 1 TO BA: PRINT I; ®i 
NEXT I 

INPUT "Soll die Übersicht auf den Drucker ausgegeben 
werden {J/N)? ";A$:DR = 0: IF A$ = "<!' THEN RETURN 

IF A$ = "J" OR A$ = "j" THEN DR = 1: PRINT D$"PRE1": 
PRINT " ": GOSUB 2500 

FOR I=1 TO DA: IF (IT - 1) / 20 = INT ((I- 1) / 20) AND 
DR = 0 THEN GOSUB 2490 

IF BA = DS THEN 2450 

PL = 0: FOR II = 1 TO BA: IF BS(II) = DS(I) THENFL=1 
NEXT II: IF FL = O0 THEN 2470 

PRINT DD$(I); SPC{ 9 - LEN (DD$(1))):DS$(DS(T)); SPCÜ 11 
- LEN (DS${DS{I))));DT$(I); SPC( 38 - LEN (DT$(I)});: IF 
VAL (DG$(I)) <= 0 THEN PRINT SPC( 11); 

PRINT RIGHT$ (" t + RIGHT$ (DG$(I), LEN (DG${I)) 
- 1),10) 

NEXT I 

IF DR = 1 THEN PRINT D$"PR#3": RETURN 


VTAB 1: PRINT "Übersicht 


Sparte: ":: INPUT ""IBSI[T)}: 


! 


PRINT : PRINT "Bitte drücken Sie eine Taste ";: GET A$: 
HOME 

PRINT "DATUM SPARTE BEMERKUNG 

GUTSCHRIFT 





—————— p —— ————— , ; RETURN 

REM ---—— Berechnung --—— 

FOR I = 1 TO 15:BE(I) = 0:BS{I) = 0: NEXT I 

TEXT : HOME : PRINT : INVERSE : VTAB 1: PRINT "Berechnung 
einzelner Summen": NORMAL : PRINT : POKE 34,2 

FOR BI = 1 TO DS: PRINT " ";BI;" ";DS$(BI}: NEXT BT: 
PRINT : POKE 34,DS + 3 


VTAB DS + 4: INPUT "Mit wievielen Sparten wollen Sie 
rechnen {A=Alle)? ";A$: IF A$ = "<" THEN RETURN 

IF A$ = "A" OR A$ = "a" THEN BA = DS: FOR I = 1 T0 
DS:BS(I) = I: NEXT : GOTO 2600 

BA = VAL (A$): IF BA < 1 OR BA > DS THEN 2550 

HOME : PRINT "Geben Sie nun die zu berechnenden Sparten 
ein! 

FOR I = 1 TO BA: PRINT I;". 
NEXT I 

HOME : INPUT "Wollen Sie alle Daten berechnen (J/N}? 
":A$: IF A$ = "<" THEN 2550 

IF A$ = "j" OR A$ = "J" THEN B0O$ = DD$(1):B1$ = 
DD$(DA):BO = 1:B1 = DA: GOTO 2670 

PRINT : INPUT "Geben Sie das l1.Datum der Berechnung ein: 
".BO$: INPUT "Geben Sie das letzte Datum der Berechnung 
ein: ";Bl$ 

BO = 0: FOR I = 1 TO DA: IF DD$(I) = BO$ THEN BO = I:I = 
DA 


Sparte: "+: INPUT "":BSIT}: 


NEXT I:Bl = 0: FOR I = BO TO DA: IF DD${I) = Bl$ THEN Bl 
= I 

NEXT I 

IF BO =00R BL =0O THEN FPFRINT"Daten nicht g 
efunden !": FOR W = 1 TO 1000: NEXT W: GOTO 2620 
HOME : PRINT "Die Berechnung erfolgt "; 


FOR S = 1 TO BA: PRINT ".";: FOR I =BO TO Bl 
IF BS{S) = DS(I) THEN BE(S) = BE(S) + VAL (DG$(T)) 



























































NEXT I,S: PRINT CHR$ (7}: PRINT : INPUT "Soll die 

Berechnung auf den Drucker ausgegeben werden (J/N)? ";A$: 
IF A$="J" OR A$ = "j" THEN PRINT D$"PR#1" 

2710 TEXT : HOME : PRINT : INVERSE : PRINT "Berechnung der 

Summen vom ";BO$;'" bis zum ";B1$ 


2720 NORMAL : PRINT : FOR I = 1 TO BA: PRINT "Sparte "; LEFT$ 
(DS$(BS{I)) + "Via m Anz ZIERT BE) 20 STHEN 
PRINT "Einnahmen : ";: GOTO 2740 

2730 PRINT "Ausgaben : "; 

2740 BE$ = STR$ ( ABS { INT (BE(I) « 100 + ‚5))):BE$ = LEFT$ 
(BE$, ABS ( LEN (BE$) - 2)) + "." + RIGHT$ (BE$,2): PRINT 
RIGHT$ (" + BE$,10);" DM": NEXT I: PRINT 


2750 BE = 0:BP = 0: FOR I = 1 TO BA: IF BE(I) < O0 THEN BE = BE 
+ BE(I) 

2760 NEXT I: FOR I = 1 TO BA: IF BE(I) > O THEN BP = BP + 
BE{IT)} 

2770 NEXT I: PRINT "Ausgaben : "; ABS {BE);'" DM" 

2780 PRINT "Einnahmen : "; ABS (BP};'" DM" 

27930 PRINT "Bilanz : 9: INT ({BP + BE) * 100 + „5) / 100;" 
DM" 

2800 IF A$ = "j'"' OR A$ = "J" THEN PRINT D$"PR+3" 

2810 IF BA < > DS THEN PRINT : INPUT "Drücken Sie <RETURN> 
":A$: GOTO 2950 

2820 PRINT : INPUT "Wollen Sie die Grafik sehen (J/N)? ";A$: 
IF A$ = "N" OR A$ = "'n" THEN 2950 








2850 REM Grafik 
2840 QQ = PEEK ( - 16290): GR : HOME :SB = INT (80 / BA):VT = 
21: TIL =0 


2850 COLOR= 10: FOR I = 0 TO 3: HLIN 0,79 AT I « 10: NEXT I 

2860 COLOR= 15: FOR I = 0 TO 8 STEP 2: VLIN 0,4 AT I: NEXT I: 
FOR I = 2 10 6 STEP A: FOR J = 0 TO A STEP A: HLIN IL, I + 
2 AT J: NEXT J,I 

2870 FOR I =0 TO 4 STEP A: FOR J = 20 TO 24 STEP 4: HLIN LI 
+2 AT J: NEXT J,I: HLIN 0,2 AT 22: VLIN 20,22 AT 0: VLIN 
22,24 AT 2: VLIN 20,24 AT A: VLIN 20,24 AT 6 

2880 FOR I = 1 TO BA: IF BE(I) < O THEN TL = TL + ABS (BE(I)) 

2890 NEXT I 

2900 FOR I = 1 TO BA:SH = 0: IF BE(I) < > 0 THEN SH = INT (40 
/ (TL / ABS (BE(I))) + ‚5): IF SH > 39 THEN SH = 39 

2910 COLOR= VT - 9: IF BE(I}) > 0 THEN COLOR= 15 

2920 FOR J= (I-1)*SB 10 (I-1)+SB+SB- 1: IFSH< > 
O THEN VLIN 39 - SH,39 AT J: NEXT J 

2930 HTAB (I - 1) x SB + 1: VTAB VT: PRINT LEFT$ (DS$(I),SB = 
2 - 1):VT = 43 - VT: NEXTI 

2940 VTAB 24: INPUT "Drücken Sie <RETURN> ":A$ 

2950 RETURN 





2960 REM Ende 

2970 PRINT : INVERSE : PRINT "Wollen Sie das Programm wirklich 
beenden ?": PRINT "Haben Sie alles abgespeichert ?";: 
NORMAL : INPUT "";A$: IF AS < > "IV AND Ab < > "j" THEN 


HOME : GOTO 1080 








2980 TEXT : NORMAL : HOME : END 
2990 REM Menü 
3000 PRINT : INVERSE :ML = (80 - LEN (MU$)) / 2: VTAB 1: PRINT 


SPC( ML);MU$; SPC( ML) 

32010 FOR MI = 1 TO MA: INVERSE : VTAB MI x 2 + 2: PRINTMI;: 
NORMAL : PRINT " "MT$(MI}: NEXT MI 

3020 VTAB 20: PRINT "Geben Sie 1 bis ";MA;" ein !: ";: 
u,AG 

3030 A = VAL {A$): IFA <1LORA > (MA) THEN 3020 

35040 RETURN 


INPUT 





Der Applesoft-Interpreter des Ile (nicht Enhanced Ile) 
unterstützt die doppelt niedrigauflösende Grafik nicht. 
Daher müssen für die einfache Grafik folgende Zeilen in 
dem Listing geändert werden. 





2840 GR : HOME : SB = INT {40 / BA):VT = 21:TL = 0 

2850 COLOR= 10: FOR I = 0 TO 3: HLIN 0,39 AT I = 10:NEXT I 

2930 POKE 1403,{(I - 1) * SB x 2 + 1: VTAB VT: PRINT LEFT$ 
(DS${I),SB « 4 - 1):VT = 43 — VT: NEXT I 


Telefonische Bestellungen? 


Da unsere Peeker-Disketten in offener Rechnung und nicht 
in dem für Sie teuren Nachnahme-Verfahren ausgeliefert 
werden, haben Sie bitte Verständnis dafür, daß wir nur 
noch schriftliche Bestellungen annehmen. 











Sie können dazu beispielsweise die in jedem Peeker ein- 
gehefteten Bestellkarten verwenden. 


Hüthig Software Service 


Peeker 4/86 









pEEkeR 









Gelegenheitsanzeigen 
Sie können unter dieser 


günstigen Preis 


@ Ihre Hardware und 
Software verkaufen 


@ Ihre Hard- und Software 
suchen 


@ Kontakte knüpfen und 
vieles mehr 


Musteranzeige privat 


1 Druckzeile a 32 Buch- 
staben nur DM 5,50 
zuzügl. ges. MwSt. 
Mindestens 2 Druckzeilen 


Beispiel: 


drucker mit Apple-Interface. 
Preis auf Anfrage. Tel. 007 


nur DM 18,81 inkl. Mwst. 








Musteranzeige gewerblich 


1 Druckzeile a 32 Buch- 


ges. MwSt. Mindestens 
2 Druckzeilen 
Beispiel: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple || plus 


16 Funktionstasten und separatem 
Ziffernblock. 
‚| Fa. Keyboard & Co. 


| nur DM 62,70 inkl. MwSt. 





Rubrik zu einem besonders 





Verkaufe aanger Typenrad- | 





staben nur DM 11,- zuzügl. 









D. EEEREEEEENEEEENNEEENEEENNNEEENE 



















IYYYYY 


N Produkt-Karte 






aa Info -Karte 








AUFTRAG FÜR KLEINANZEIGEN 


Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 


[] suche Hardware [] suche Software [] Verschiedenes 
L] biete Hardware [| biete Software [1 Chiffre 









Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. Mindestens 2 Zeilen. 
Chiffregebühr DM 6,- zuzügl. MwSt. 


PEEkER 44 


‚sete_________ erschienenen 





Zu der im Peeker, Heft 





Anzeige über 


bitte ich um detaillierte Information. 
Ich wünsche U Prospekt, Datenblatt U Preisliste [1 schriftliches Angebot U] tel. Rückruf 


gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 





Unterschrift {für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


49499949 PEEKER 44 


Schreiben Sie uns, wenn Sie technische Fragen zu Aufsätzen im Peeker 
haben. Beachten Sie jedoch, daß die Redaktion keine Auskünfte über Be- 
zugsquellen erteilt: 





2A 





III 


Produkt: 
Karte 





Vorname, Name 


POSTKARTE 





Firma 


Straße 





Wahnort 
Peeker-Börse 
Anzeigen-Service 


PLZ/Ort 


p 
:O 
En 
% Bitte veröffentlichen Sie den um- 
Fr 
D. 








stehenden Text von______— Zeilen 
a DM in der nächsterreich- “une a. i 
Daran Ausgabe wer meer Dr. Alfred Hüthig Verlag Wünschen Sie | 
Postfach 1028 69 weitere Informatio- 
| nen zu einer der im 
6900 Heidelberg 1 Heft erschienenen 
en Anzeigen? 
Datum Unterschrift 





Nichts einfacher als 
das. Produkt-Karte 
ausfüllen, frankieren 
und an den 
Inserenten (nicht an 

POSTKARTE die Peeker-Redaktior 
senden. 


Vorher aber nicht 
vergessen: 

Kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Inserent 


Straße 
Damit erleichtern Sie 
PLzIOH dem Hersteller 
eine gezielte Beant- 
wortung Ihrer Anfrac 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 


POSTKARTE 
Inserenten und Ihren 
Absender ein. 

Peeker 

Redaktion 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


DEEKER 





Disk #12 
(DOS 3,3; Heft 12/85) 


COSMO CRUMBLE 

T.CC2 — T.CC6 

T.CCB8 

CcCc2 - CC8 

CC.LEVELS 

(1} Reaktionsspiel für Tastatur oder 
Joystick; (2) Heft 12/85, S. 6; (3) II+, 
He oder lic; wahlweise Joystick; (4) 
DOS 3.3; (5) RUN COSMO CRUM- 
BLE 


IW.DEMO 

T.IW.IN 

IW.IN 

T.IW.OUT 

IW.OUT 

ECHO 

(1) Initialisierung des Imagewriters 
durch mit IW.DEMO generierbare, 
BRUN-fähige Steuer-Sequenz-Pro- 
gramme; (2) Heft 12/85, S, 12; (3) Ile 
oder IIc {lI+ mit Einschränkungen, 
wegen der Tastatur); Imagewriter 
(beim Ile mit Super-Serial-Card); (4) 
DOS 3.3 oder ProDOS; (5) RUN 
IW.DEMO 


ASCII.EDITOR 

COPY.TEXT.DEMO 

T.COPY.TEXT 

COPY.TEXT 

ASCII.CODES 

(1) Erstellung eines eigenen Zeichen- 
satzes; Kopieren des 40-Z/Z-Text- 
Bildschirms in den HGR-Bereich; (2) 
Heft 12/85, S. 16; (3) speziell II+, 
aber auch Ile oder Ilc mit Einschrän- 
kungen; (4) DOS 3.3; (5) RUN 


Disk #14 


(DOS 3,3; Heft 1 und 2/86) 


T.PROTODOS 

PROTODOS 

(1) Programm zur Konvertierung von Pro- 
DOS- in DOS-3.3-Dateien; (2) Heft 1/86, S 
36; (3) Il+, Ile oder IIc; (4) DOS 3,3; (5) 
BRUN PROTODOS 


DESIGNER.TEXT 

(1) Entwurf und Änderung von Zeichensät- 
zen für die SYSTEM.CHÄRSET-Datei; (2) 
Heft 1/86, S. 43; (3) II+, Ile oder lic; (4) 
UCSD-Pascal 1.1 oder 1.2; (5) Efxecute) 
DESIGNER.TEXT nach dem Ässemblieren 
(6) Datei mit GETDOS nach UCSD-Pascal 
übertragen 


READPAS.PAS 

(1) Programm zur Konvertierung von 
UCSD- in Turbo-Pascal-Textfiles; (2) Heft 
1/86, S. 48; (3) II+ oder Ile; (4) GP/M mit 
Turbo-Pascal 2.0 oder 3.0; (5) nach dem 
Compilieren mit Option © von GP/M aus als 
COM-Datei starten; (6) Datei mit APDOS 
nach CP/M übertragen 


KOMPLEMENT.DEMO 

T.KOMPLEMENT 

KOMPLEMENT 

(1) Demo-Programm zur Komplement-Ad- 
dition; (2) Heft 2/86 S. 6; (3) II+, Ile oder 
IIc; (4) DOS 3,3 oder ProDOS; (5) RUN 
KOMPLEMENT.DEMO 


DOSMOVER.START 

T.DOSMOVER 

DOSMOVER 

(1) Verschieben von DOS 3.3 in die LC zur 
Erweiterung des verfügbaren Speicherplat- 
zes; (2) Heft 2/86, S. 17; (3) II+ mit LG, Ile 
oder IIc; (4) DOS 3.3; (5) RUN DOSMO- 
VER.START 


Peeker 4/86 


ASCILEDITOR; RUN COPY.TEXT- 
‚DEMO; (6) Nach FLASH werden 
Großbuchstaben auf dem HGR-Bild- 
schirm als Kleinbuchstaben ausge- 
geben 


GETTEXT.DEMO 

T.GETTEXT 

GETTEXT 

GETTEXT.PRODOS 

(1) Hilfsprogramm zur Erweiterung 
des Tastatur-INPUT-Befenls durch 
Editierfunktionen; (2) Heft 12/85, S. 
20; (3) Il+, Ile oder IIc (40 und 80 Z/ 
2, auch Videx); (4) DOS 3.3 (GET- 
TEXT) oder ProDOS mit BASIC.SY- 
STEM 1,0 (GE TEEXTPROB®S). 65) 
RUN GETTEXT.DEMO; (6) für Videx 
und ProDOS leichte Anpassung von 
GETTEXT.DEMO erforderlich, s, Heft 


RAMDISK.PAS 

(1) Installierung einer CP/M-56K- 
RAM-Disk unter Turbo-Pascal; (2) 
Heft 12/85, S. 62; (3) lie mit 64K- 
Karte; (4) CP/M 2,20 56K; Turbo- 
Pascal 2.0 oder 3.0; (5) RAMDISK 
(unter CP/M, nach Konvertierung mit 
APDOS und Compilieren auf Disket- 
te); (6) entspricht der RAM-Disk aus 
Heft 6/1985, S. 55 


JAHRESINHALT 

WORT.SUCHER 
WORT.SUCHER.OBJ 

(1} Jahresinhaltsverzeichnis als binä- 
re Textdatei mit Programm zur Suche 
von Stichwörtern; (2) Heft 12/85, S. 
72; (3) II+, Ile oder IIc; 40 und 80 Z/Z 
(auch Videx); (4) DOS 3.3 und Pro- 
DOS;: (5) RUN STICHWORT.SU- 
CHER 


MATRIX 

VEKTOR 

AMPERSOFTI — 

AMPERSOFT8 

LRS1 

LRS2 

(1) Demo-Programme zur Matrizenrech- 
nung; (2} Heft 2/86, S. 29; (3) Il+, Ile oder 
Ile; (4) DOS 3.3 mit Ampersoft und LRS- 
System; (5) s. Heft; (6) die Daten-Files sind 
wegen ihres Umfangs nicht enthalten und 
müssen selbst erstellt werden 


INIT.SERIELL 

(1) Programm zur Initialisierung einer der 
seriellen Schnittstellen beim Ilc; (2) Heit 2/ 
86, S. 34; (3) Ile; (4) DOS 3.3 oder ProDOS; 
(5) RUN INIT,SERIELL; (6) PIN-Werte ggf. 
im Programm anpassen 


T.CHRGET.SPRUNG 

CHRGET.SPRUNG 

(1) Hilfsprogramm zur Applesoft-Befehlser- 
weiterung; (2) Heft 2/86, S. 38; (3) Il+, Ile 
oder Ic; (4) DOS 33; (5) BRUN 
CHRGET.SPRUNG, dann SBELL zum Test 


SC.MOVER.DEMO 

T.SCREEN.MOVER 

SCREEN.MOVER 

(1) Programm zur Pufferung von bis zu 8 
Bildschirmseiten in der LC; (2) Heft 2/86, S. 
41; (3) I+ mit LG, Ile oder Ilc; (4) DOS 3.3 
oder ProDOÖS; (5) RUN SC.MOVER,DEMO; 
(6) unter ProDOS die Pufferzahl durch 
POKE 782,2 begrenzen 


DARSTELLUNG.SD 

(1) Darstellung dreidimenstionaler Funktio- 
nen; (2) Heft 2/86, S.43; (3) II+ mit G/K, Ile 
oder lic; (4) DOS 3,3 oder ProDOS; (5) 
RUN DARSTELLUNG.3D 


TIPS5.TEXT 

(1) Demo-Programme zur Ässembler-Ein/ 
Ausgabe in UCSD-Pascal; (2) Heft 2/86, S, 
47, (3) Il+, Ile oder Iic; (4) UCSD-Pascal 
1,1 oder 1.2; (5) s. Heft 





Peeker-Sammeldisk 


+12 und #13 


(Einzelpreis DM 28,-; Fortsetzungspreis DM 20,-) 


Disk #13 
(DOS 3.3; Heft 1/86) 


QUICK.RANDOM 

QUICK.SPEZIAL 

QUICK.TASC 

QUICK.DISK 

(1) Demonstration von Quicksort; (2) 
Heft 1/86, S. 6; (3) II+, Ile oder Ile; 
80-Zeichenkarte die INVERS/NOR- 
MAL erkennt; (4) DOS 3.3 oder Pro- 
DOS; (5) RUN QUICK.RANDOM, 
RUN QUICK. SPEZIAL (Demo für auf- 
steigend vorsortiert, absteigend vor- 
sortiert, gleiche Elemente), RUN 
QUICK.DISK (für Diskettensorltieren); 
(6) QUICK.TASC eignet sich als 
Quelltext für den Tasc-Compiler 


QUICKSORT.DEMO 
T.QUICKSORT 

QUICKSORT 

(1) Ampersand-Utility zur Sortierung 
eines eindimensionalen Arrays nach 
dem Quicksort-Algorithmus; (2) Heft 
1/86, S. 16; (3) II+, Ile oder IIc; (4) 
DOS 3,3; (5) RUN QUICKSORT.- 
DEMO 


VOK.TRAINER 

VOK.COPY 

VOK.PACK 

VOK.BCOPY 

GWS.INFO 

GWS.VOK 

(1) Vokabellernprogramm mit Editor 
für Vokabeln; (2) Heft 1/86, S. 20; (3) 
II+, Ile oder IIc; Laufwerk mit ggf, 40 
Spuren; (4) DOS 3,3; (5) RUN VOK,- 
TRAINER; (6) GWS.INFO und 
GWS.VOK beinhalten den englischen 
Grundwortschatz 


AGE.DEMO 

T.AGE 

AGE 

(1} Ampersand-Erweiterung der Gra- 
fik-Befehle in Applesoft; (2) Heft 1/ 
86, S. 30; (3) II+, Ile oder Ic; (4) 
DOS 3.3; (5) RUN AGE.DEMO 


GRAFIK.DEMOS.2 

(1) Demonstration effektvoller Grafi- 
ken; (2) Heft 1/86, S. 61; (3) II+, Ile 
oder Ilc; (4} DOS 3.3 oder ProDOS; 
(5) RUN GRAFIK.DEMOS.,2 


Peeker-Sammeldisk 
#14 und #15 


(Einzelpreis DM 28,-; Fortsetzungspreis DM 20,-) 


Disk #15 


(DOS 3.3; Heft 3/86) 
Achtung: Enthält sowohl DOS-3.3- als auch 
USCD-Pascal-Directory! 


REELL.1 

REELL.1A 

REELL.2 — REELL.10 

(1) Demos zur internen Darstellung von 
reellen Zahlen; (2) Heft 3/86, S. 12; (3) Il+, 
Ile oder Ilc; (4) DOS 3,3 oder ProDOS; (5) 
RUN REELL.1 usw. 


T.MAKESUB 

MAKESUB 

(1) Erstellung zusammenhängender Subdi- 
rectories unter ProDOS; (2) Heft 3/86, 5, 
20; (4) II+ {mit LC), Ile oder Ilc; (4) 
ProDOS; 

MAKESUB muß zuerst mit DOSTOPRO auf 
Ihre ProDOS-Diskette kopiert werden; (5) 
BRUN MAKESUB, 


DATENDEMOS 

SUBDEMOS 

STRINGDEMOS 

FILEDEMOS 

(1) Demos zum Kyan-Aufbaukurs sowie 
String-Include-Datei, enthalten in STRING- 
DEMOS; (2) Heft 3/86, S. 32; (3) II+ (mit 
LC) Ile oder Ilc; (4) ProDOS; Dateien müs- 
sen zunächst auf ProDOS-Diskette kopiert 
werden (z.B. mit DOSTOPRO); (5) Unter 
Kyan-Pascal zu SYS-Files compilieren, 


FILETEST.TEXT 

FIBTEST.TEXT 

{1} FILETEST erzeugt Demo-Testfiles, die 
mit FIBTEST analysiert werden; (2) 3/86, S. 
48; (3) Il+, Ile oder Ilc; (4) UCSD-Pascal 
1.1 und 1.2; die Dateien müssen zunächst 
mit GETDOS (s.u.) auf Pascal-Diskette kon- 
vertiert werden; (5} FILETEST und FIBTEST 
compilieren und dann FILETEST und FIB- 
TEST starten (in dieser Reihenfolge) 


MESSWERT.START 

MESSWERT 

MESSWERT.TITEL 

MW.ZEICHENSATZ 

(1) Programm zur Auswertung von Meß- 
wertkolonnen; (2) Heft 3/86, S, 58; (3) Il+, 
Ile oder Ilc; ggf. Epson-Drucker FX-80 mit 
Grafik-Interface, (4) DOS 3,3, ggf. in LC 
geschoben; (5) RUN MESSWERT.START; 
(6) das DOS wird gepatcht 


GETDOS.TEXT 

GETDOS.CODE 

AND_7F.TEXT 

AND_7F.CODE 

(1) Verbesserte Version von GETDOS aus 
Heft 1/85, S. 70; Konvertierung von DOS- 
3.3-Textfiles in USCD-Pascal-TEXT-Files; 
speziell für Peeker-DOS-Sammeldisketten 
konzipiert; (3) It+, Ile oder Ilc; 2 Drives; (4) 
USCD-Pascal 1.1 oder 1.2; (5) Ihre UCSD- 
Arbeitsdiskette booten, Sammeldisk #15 
einlegen, Eixecute GETDOS, wieder Ar- 
beitsdiskette in Drive 1 und eine der 
Peeker-Sammeldisketten mit UCSD-Text- 
files in Drive 2 einlegen, Return drücken für 
DOS-Catalog, Nummer des Textfiles einge- 
ben, Rest automatisch 
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In Pascal können mit Hilfe von Prozeduren 
und Funktionen mit Wert- und Variablen- 
parametern verhältnismäßig leicht Befehls- 
erweiterungen implementiert werden. 
Doch sind solche simulierten Befehle zu- 
meist alles andere als schnell und kom- 
pakt. Deshalb wird man aus Gründen der 
Geschwindigkeit und effizienten Speicher- 
ausnutzung in vielen Fällen Assem- 
blerroutinen vorziehen müssen. 


1 UCSD-Pascal (Apple-Pascal 1.1/1.2) 
bietet hierzu ein vollständiges Instrumen- 
tarum an, doch ist das Editieren, Assem- 
blieren, Linken und Austesten von Ässem- 
blerroutinen kompliziert, schwerfällig und 
damit zeitraubend (vgl. z.B. die Maus- 
Routinen aus Peeker 4/85, S. 48ff.). 


2 In Turbo-Pascal (Apple-CP/M-Version 
3.0) kann man keine Assembler-Quelltex- 
te eingeben, und der Inline-Code in Form 
von hexadezimalen Zahlen ist nur ein 
schwacher Ersatz (vgl. z.B. den CP/M- 
RAM-Disk-Driver aus Peeker 12/85, S. 
BZ): 


3 Der wesentliche Vorteil von Kyan-Pascal 
gegenüber Turbo- und UCSD-Pascal be- 
steht darin, daß man problemlos Assem- 
blerroutinen in Kyan-Quelltexte einbauen 
kann, denn der Kyan-Compiler ist zugleich 
auch ein 6502-Assembler. Hinzu kommt, 
daß man unter Kyan-Pascal von ROM- 
Routinen Gebrauch machen kann, was be- 
sonders denjenigen zustatten kommt, die 
sich bereits mit dem Monitor befaßt haben. 


Beispiel 

Nehmen wir einmal an, ein Pascal-Befehl 
solle die Ausgabe hexadezimaler Zahlen 
im Bereich von 0-255 simulieren (= Byte- 
Ausgabe). Die Kyan-Assemblerroutine 
würde folgendermaßen aussehen: 
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PROCEDURE HEXOUT (H: 
BEGIN 
#A 
STX T 
LDyY 33 
LDA (SP),Y 
JSR $FDDA 
EDRT 
+ 
END; 


INTEGER); 


; PRBYTE 


Wenn man nunmehr die gleiche Routine in 
UCSD- und Turbo-Pascal zu schreiben 
versucht, so wird die Assembler-Überle- 
genheit von Kyan-Pascal evident. 


Zum besseren Verständnis dieses Beitra- 
ges sollten Sie über Pascal-Kenntnisse (S. 
„Kyan-Pascal Grund- und Aufbaukurs‘ 
aus Peeker 2/86 und 3/86) sowie Assem- 
bler-Kenntnisse (s. 16seitiger Sonderteil 
„6502 leicht gemacht“ aus Peeker 7/85) 
verfügen. Es sei jedoch darauf hingewie- 
sen, daß Kyan-Programmierer nicht unbe- 
dingt Assembler lernen müssen, um die in 
den folgenden Peeker-Heften veröffent- 
lichten Assemblerroutinen benutzen zu 
können, denn für deren Anwendung Ist es 
lediglich erforderlich, daß man in das eige- 
ne Programm eine Include-Zeile in der 
Form 

#1 ROUTINEN 

einfügt und sich darüber hinaus mit der 
Syntax der definierten Befehle veriraut 
macht. 


1. #A...#-Befehl 


PROGRAM MONETOR; 
BEGIN 
WRITELN ('Monitor-Exit'); 
+A 
MON EQU $FF69 
JMP MON 
* 
END, 


Eine Assemblerroutine wird mit dem Be- 
fehl 
#A 














eingeleitet, der in einer eigenen Zeile ste- 
hen muß, d.h. Return + „#A“ + Return. 
Statt „#A“ kann man auch „#a" schrei- 
ben. Mögliche Fehler: 

UA 

Hier steht vor dem „#A“ noch eine Leer- 
taste (DO), was nicht zulässig ist. 
WRITELN; #A 

Hier geht dem „#A" ein Pascal-Befehl in 
derselben Zeile voran. 

+#A LDA $C000 

Hier folgt dem „#A“ in derselben Zeile 
bereits der erste Befehl der ÄAssem- 
blerroutine. Dies führt zwar zu keiner Feh- 
lermeldung, doch würde „LDA $C000° 
ignoriert werden. 
































| Kyan-Club 
Wenn Sie Kyan-Pascal 2.0 über den Hüthig 
Software Service zum Sonderpreis von DM 
170,- bestellt haben, werden Sie automa- 
tisch Mitglied in unserem inoffiziellen Kyan- 
Club: 

1. Als passives oder aktives Mitglied kön- | 
nen Sie bei Bedarf Kyan-Utilities (Program- 
mierer-Toolkit. Maus-Paket, Grafikpaket usw.) 
zu Club-Sonderpreisen, die deutlich unter 
den normalen Ladenpreisen liegen, erwer- 
ben. 

2, Als aktives Mitglied erhalten Sie kosten- 
los eine Liste aller kontaktsuchenden Club- 
Mitglieder sowie gelegentliche Rundschrei- 
ben mit Club-Nachrichten. Wegen des BDSG 
(Bundesdatenschutzgesetzes) ist hierzu je- 
doch Ihre schriftliche Zustimmung erforder- 
lich. Es genügt eine Postkarte mit Privatan- 
schrift und Telefonnummer sowie dem Ver- 
merk „Club-Liste ja“. 

Zur Zeit (1.3.86) gibt es ca. 550 passive sO- 
wie ca. 250 aktive Club-Mitglieder, Tendenz 
| steigend. Die erste, provisorische Mitglieds- | 
liste wird Ende April verschickt. 


Hüthig Software Service 
| Postfach 102869 : 6900 Heidelberg 
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Die mit „#A“ eingeleitete Folge von As- 
semblerinstruktionen wird mit einem 
nackten 

4 

abgeschlossen, das ebenfalls auf einer ei- 
genen Zeile stehen muß, da es sonst mit 
einem „#“ von „LDA #$A0“ usw. ver- 
wechselt werden würde. 

Die Befehle zwischen „#A” und „#' 
müssen der klassischen MOS-Syntax ent- 
sprechen, die gegenüber dem im Peeker 
benutzten Big Mac bzw. Merlin folgende 
Besonderheiten aufweist: 


1. High/Low: Das High-Byte (HH) einer 
Adresse wird mit „#<" und das Low-Byte 
(LL) mit „#>" gekennzeichnet, z.B. 


10 
00 


LDA #<$1000 
LDY #>$1000 
‚oder 
LABEL EQU $1000 
LDA #<LABEL 
LDY #>LABEL 


I 


10 
00 


a “a 


2. Akku-Befehle: Die Akkumulator-Be- 
fehle ASL, LSR, ROL und ROR müssen 
durch „A“ ergänzt werden, z.B. 


ASL A 
LSR A 
ROL A 
ROR A 


3. Labels: Es gibt gewisse vordefinierte 
Labels, insbesondere „T" und „SP“ 
(s.u.), die man zwar benutzen, aber nicht 
selbst (um)definieren darf. Darüber hinaus 
sind alle Labelnamen tabu, die mit „L“ 
anfangen, weil der Kyan-Compiler mit „L“ 
durchnumerierte Labelnamen erzeugt {L1, 
2, susw.). 


4. Pseudo-Opcodes: Die alte Kyan-Ver- 
sion 1.2 kennt nur die Pseudo-Opcodes 
ORG (= Origin), EQU (= Equation), DB (= 
Define Byte) und DW (= Define Word). 
Dieser Beitrag wurde geschrieben, als die 
Version 2.0 noch nicht vorlag. Über die 
Erweiterungen des 2.0-Assemblers wer- 
den wir zu einem späteren Zeitpunkt be- 
richten. 


2. Inline und Include 


PROGRAM ASMMAIN; 


VAR C: CHAR; 
BEGIN 
READLN (C); 


FA 

LDA $C056 ;Mixed-Lores-Grafik 
LDA $0054 

LDA $C050 

LDA $C053 

= 

READLN (C)}; 

#+A 

LDA $C051 ;Textdarstellung 
LDA $C052 


PROGRAM ASMPROG; 
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VAR C: CHAR; 

PROCEDURE SETLORES; {Include-Anfang)} 
BEGIN 

=#A 

LDA $C056 

LDA $C054 

LDA $C050 

LDA $0053 

+ 

END; 

PROCEDURE SETTEXT; 

BEGIN 

FA 

LDA $C051 

LDA $C052 

+ 
END;  {Include-Ende} 
BEGIN 

READLN (C); 
SETLORES; 

READLN (C); 

SETTEXT 
END, 


I } 
PROGRAM ASMINCLUDE; 
VAR C: CHAR; 
+I ASMFILE 
BEGIN 
READLN (C); 
SETLORES; 
READLN {C}; 
SETTEXT 
END, 


Wie man aus den drei Demos ersehen 
kann, gibt es prinzipiell drei Möglichkeiten, 
um Assembler-Quelltexte in einen Pascal- 
Quelltext einzubauen; 


1. Eingebettete Routinen: Zwar lassen 
sich Assemblerroutinen an beliebigen 
Stellen des Hauptprogramms einfügen (s. 
Listing ASMMAIN), doch sollte man dies 
nur in Spezialfällen sowie zum Austesten 
neuer Befehle tun, denn die Mischung von 
Assembler- und Pascal-Quelltext führt zu 
einem unübersichtlichen Programmierstil. 


2. Gesonderte Routinen: Statt dessen 
wird empfohlen, alle Assemblerroutinen 
als Prozeduren oder Funktionen zu defi- 
nieren, wie dies im Listing ASMPROGC de- 
monsiriert wird. Wie ersichtlich, wird eine 
Assemblerprozedur mit BEGIN eingeleitet 
und mit END abgeschlossen, wobei das 
END gleichzeitig das RTS ersetzt. Am En- 
de einer Assemblerprozedur darf also nie- 
mals ein RTS stehen, weil sonst der END- 
Befehl nicht mehr ausgeführt werden wür- 
de und damit bei verschachtelten Proze- 
duren die internen Zeiger völlig durchein- 
ander gerieten. 

Assemblerprozeduren und -funktionen 
werden dort eingefügt, wo sich auch die 
„normalen“ Prozeduren und Funktionen 
befinden, also im Anschluß an den 
CONST-TYPE-VAR-Teil des Hauptpro- 
gramms. 


3. Include-Routinen: Immer wieder be- 
nötigte Assemblerroutinen kann man zu 
gesonderten Include-Dateien zusammen- 
fassen, die dann beim Compilieren in be- 
liebige andere Quelltexte eingespielt wer- 
den können (s. ASMINCLUDE). Eine In- 
clude-Datei sollte sich in demselben Volu- 
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me- oder Subdirectory des ProDOS- 
Datenträgers befinden, in dem der Quell- 
text des Hauptprogramms gespeichert ist. 
Auf „#l" bzw. „#i“ folgt der Include- 
Dateiname in der üblichen ProDOS-Syn- 
tax, z.B. 

#| /VOLUME/SUB/ASMFILE 

Der „#1”-Befehl wird im Gegensatz zum 
„#A“-Befehl nicht durch „#" abge- 
schlossen. 





3. Speicherorganisation 


Assemblerroutinen müssen auf die Spei- 
cherorganisation unter Kyan-Pascal Rück- 
sicht nehmen (vgl. auch Abb. 1: Speicher- 
organisation): 

Nullseite ($0000-$00FF): Die Speicher- 
stellen T bis T+14 (unter Version 1.2 ab- 
solut $0010-$001E) werden vom compi- 
lierten Kyan-Programm als „Scratch-Pad“ 
für temporäre Werte benutzt, doch darf 
eine Assemblerroutine ebenfalls diese 
Speicherstellen verwenden. Dies sind im- 
merhin 15 Bytes, was in den meisten Fäl- 
len ausreichen dürfte. Das Label „T” (für 
„temporär”) ist vordefiniert. Der Übrige 
Teil der Nullseite sollte nicht verändert 
werden. Eine Ausnahme stellen diejeni- 
gen Zero-Page-Speicherstellen dar, die 
mit der Standard-Ein/Ausgabe zusam- 


Global Page 


= I $BF00 


LIB, Teil 2 


-1 $B000 
Datenpoo! 


Objektcode 
inkl. 
Assemblerroutinen 


-1 $2000 


LIB, Teil 1 


Bildschirm 


— ee $0300 

1 Eimberufter _| 
— —| $0200 
| $0100 
ZZ '$0000 


Abb. 1: Speicherorganisation 


$0400 
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menhängen, z.B. CSWL, KSWL, BASL 
usw., da auch das compilierte Kyan-Pro- 
gramm von COUT und RDKEY Gebrauch 
macht. 

Stapel ($0100-$01FF): Der Prozessorsta- 
pel wird unter Kyan-Pascal wie üblich be- 
nutzt und ist für eigene Assemblerroutinen 
tabu. Notfalls kann man den Bereich 
$0100-$0110 als Scratch-Pad verwenden. 
Eingabe-Puffer ($0200-$02FF): Dieser 
Bereich wird erstens als Tastatur-Eingabe- 
Puffer sowie zweitens (ab $0280) als Zwi- 
schenspeicher für ProDOS-Dateinamen 
benutzt. Eine Assemblerroutine darf des- 
halb den Eingabe-Puffer in gleicher Weise 
verwenden. 

Page 3 ($0300-$03CE): Mit Ausnahme 
der Vektoren für Reset usw. am Ende der 
Page 3 ist dieser Bereich frei und kann 
deshalb z.B. für Drucker-Treiber verwen- 
det werden. 

Bildschirm ($0400-$07FF): Dies ist der 
übliche Textbildschirm-Speicher. 

LIB Teil 1 ($0800-$1FFF): Der erste Teil 
der Runtime-Library wird in den Bereich 
ab $0800 gelegt. 

Programm ($2000-AFFF): Normalerweise 
beginnt der Objektcode des Kyan-Pro- 
gramms einschließlich der darin enthalte- 
nen Assemblerroutinen ab $2000. Falls 
jedoch hochauflösende Grafik benötigt 
wird, so muß man den entsprechenden 
Quelltext mit 


+A 
ORG $4000 


PROGRAM GRAFIK; usw. 


einleiten, so daß der HGR-Bereich $2000- 
$3FFF als Grafik-Speicher ausgesparl 
wird. Wird keine Grafik oder z.B. nur Lo- 
res-Grafik benutzt, so steht der gesamie 
Bereich $2000-$AFFF für Programm und 
Daten zur Verfügung (Programmspeicher 
ab $2000 aufwärts, Datenspeicher ab 
SAFFF abwärts). Übrigens befinden sich 
die ProDOS-I/O-Puffer für geöffnete 
Dateien unterhalb des Datenspeichers, al- 
so quasi zwischen Programm- und eigent- 
lichem Datenspeicher. 

LIB Teil 2 ($B000-$BEFF): Der zweite Teil 
der Runtime-Library wird in den Bereich 
ab $BO00 gelegt. 

Global-Page ($BFOO-$BFFF): Die Pro- 
DOS-Global-Page wird wie üblich benutzt. 
PRODOS ($D000-$FFFF, LC): Eigentli- 
ches PRODOS in der Language-Card. Un- 
ter Kyan-Pascal können offenbar alle Pro- 
DOS-Versionen benutzt werden. Dies ist 
insbesondere für diejenigen wichtig, die 
mit Fremdlaufwerken (Erphi-Controller 
usw.) arbeiten. 

ROM ($D000-$FFFF, ROM): Eine Assem- 
blerroutine kann — im Gegensatz zu 
UCSD-Pascal — immer davon ausgehen, 
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daß das ROM eingeschaltet bzw. lesefähig 
ist. Das compilierte Kyan-Pascal benutzt 
selbst fast keine ROM-Routinen, doch 
kann man in eigenen Assemblerprozedu- 
ren von allen ROM-Routinen Gebrauch 
machen, wenn man danach wieder die 
Nullseite in den alten Zustand zurückver- 
setzt. 


4. Prozessorregister 


Eine Assemblerroutine braucht weder den 
Akkumulator (A) noch das Y-Register (Y) 
zu retten. Desgleichen kann man auch das 
Statusregister (P) ignorieren; allerdings 
darf sich der Prozessor nach dem Verlas- 
sen der Assemblerroutine nicht im Dezi- 
malmodus befinden. 

Dagegen muß das X-Register stets geret- 
tet werden, weil es von Kyan-Pascal als 
wichtigster interner Zeiger benutzt wird, 
Es empfiehlt sich, die Speicherstelle T 
stets für das X-Register zu reservieren. 
Beispiel: 


FA 


STAAT ; X zwischenspeichern 
JSR $FC58 ; HOME-Befehl 
LDX T ‚ X wiederherstellen 


+ 


5. Parameterübergabe 


Die Übergabe von Parametern an Assem- 
blerprozeduren und -funktionen ist nicht 


PROCEDUREP (A, B: INTEGER); 
VAR CG,D: INTEGER; 
BEGIN...END; 


GGG 


HH A 
LLA 






\ 





HH B 
LLB | 











HHC 
LLC 
HHD 
LLD 


al 


HH Local-Top | 
Kopf 


LL Local-Top 





| 


Level 


Abb. 2: Parameterübergabe 





trivial, denn man muß erstens wissen, In 
welcher Reihenfolge die Parameter Im 
Speicher abgelegt werden, und zweitens 
muß man mit der internen Struktur der 
Datentypen vertraut sein. Das Programm 
HEXTYPEN zeigt, in welcher Reihenfolge 
und in welcher hexadezimalen Form alle 
vordefinierten Datentypen gespeichert 
werden. Darüber hinaus demonstriert das 
Programm KYANASM alle denkbaren Fäl- 
le der Parameterübergabe. Sie sollten 
deshalb beide Programme genau studie- 
ren, nachdem Sie sich mit den nachfol- 
genden Grundbegriffen vertraut gemacht 
haben. 


1. Datenkopf: Wenn eine Prozedur oder 
Funktion aufgerufen wird, so zeigt der sog. 
Stack-Pointer auf den Anfang des 
Datenspeichers des Unterprogramms. SP 
ist ein vordefiniertes Zero-Page-Label (ab- 
solut $0004-$0005), das indirekt indiziert 
verwendet werden kann. 

Die ersten 3 Bytes des Datenspeichers, 
die den Datenkopf bilden, können ignoriert 
werden. 

LDA (SP), Y ;wobei Y = 0 

enthält die Nummer des Levels bzw. Ver- 
schachtelungsgrades, z.B. $01 für Unter- 
programme, die vom Hauptprogramm auf- 
gerufen werden. 

LDA (SP),Y ; wobei Y = 1 (LL) und 

LDA (SP),Y ; wobei Y = 2 (HH) 

zeigen auf das Ende des Datenspeichers 
(„Local-Top”). 


FUNCTION F (A, B:: INTEGER); 
VAR C,D:INTEGER; 
BEGIN...END; 


Ir 
| HH Local-Top 
Level 1 
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2. Eigentliche Daten: Ab dem dritten 
Byte, d.h. ab 

LDA (SP), Y ; wobei Y = 3 

werden die Daten abgelegt, und zwar bei 
Wertparametern als Werte und bei Varia- 
blenparametern als Zeiger auf die Werte. 
Aus Gründen der Vereinfachung wollen 
wir nur Ganzzahlen betrachten, zumal die- 
se bei Assemblerroutinen am häufigsten 
benutzt werden. Ganzzahlen belegen im 
Speicher 2 Bytes in der Form Low Byie — 
High Byte. Beispiele: 


PROCEDURE P {A: INTEGER); 
BEGIN ... #A ... # ... END; 


hat den Datenaufbau 
LDA (SP), Y= 4: HH von Ä 
LDA (SP), Y=3:LLvonÄ 


PROCEDURE P (A, B: INTEGER); 
BEGIN ... #A ... # ... END; 


hat den Datenaufbau 

LDA (SP), Y=6: HH von A 
LDA (SP), Y=5:LLvonÄ 
LDA (SP), Y= 4: HH von B 
EBA(SEIYT = 3 ELYonB 


PROCEDURE P (A, B: INTEGER); 
VAR GC: INTEGER; 
BEGIN ... #A ... # ... END; 


hat den Datenaufbau 

LDA (SP), Y= 8: HH von Ä 
LDA (SP),Y= 7: LLvonÄ 
LDA (SP), Y= 6: HH vonB 
LDA (SP), Y= 5: LLvonB 
LDA (SP), Y= 4: HH vonC 
LDA (SP), Y=3:LLvonC 


FUNCTION F (A: INTEGER): INTEGER; 
BEGIN ... #A .„..# ...END; 


hat den Datenaufbau 

LDA (SP), Y= 6: HH von Ä 
LDA (SP), Y=5:LLvon A 

LDA (SP), Y= 4: HH von F 
LDA (SP), Y= 3: LLvonF 


FUNCTION F (A, B: INTEGER): INTEGER; 
VAR C, D: INTEGER; 
BEGIN ... #A ww. # .-s END: 


hat den Datenaufbau 

LDA (SP), Y = 12: HH vonÄ 
LDA (SP), Y= 11: LLvonA 

LDA (SP), Y = 10: HH von B 
LDA (SP), Y = 09: LL von B 

LDA (SP), Y = 08: HH vonF 
LDA (SP), Y = 07: LLvonF 

LDA (SP), Y = 06: HH vonC 
LDA (SP), Y= 05: LLvonC 

LDA (SP), Y = 04: HH von D 
LDA (SP), Y = 03: LL von D 


Aus den Beispielen (vgl. auch Abb, 2: 


Parameterübergabe) können wir folgen- 
de Regeln ableiten: 
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HEXTYPEN 


PROGRAM HEXTYPEN; 
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{Dieses Programm zeigt, in welcher Reihenfolge 
und in welcher Hex-Form Variablen im Speicher 
abgelegt werden, U.Stiehl/Dez. 85} 


VAR 
TRENHL: CHAR: 
LE: INTEGBER: 
R: REAL; 
0: CHAR; 
THENN2: CHAR; 
IA: ARRAY [1..3] OF INTEGER; 
CA: ARRAY [1..3] OF CHAR; 
TRENNS: CHAR: 
RD: RECORD 
AT: INTEGER: 
RR: REAL; 
RS: ARRAY [1..3] Om CHAR 
END; 
TRENNA: CHAR; 
RA: ARRAY [1.-3] OF RECORD 
RI; INTEGER; 
RR: REAL: 
RS: ARRAY [1..3] OF CHAR 
END; 
TRENNS: CHAR; 
Bl: BOÖOLEAN; 
B2: BOOLEAN; 
TRENNS: CHAR: 


AUFZ: (NULL, EINS, ZWEI); 


TRENNT: CHAR; 


MENGE: SET OF 0,.68: 


TRENNS: CHAR; 


{trotzdem 32 Bytes!} 


PROCEDURE ZEIGER (VAR I: INTEGER); 


VAR A,B,C: CHAR; 
BEGIN 


{Fl} 
{F2} 
{F3} 


A := CHR (241); 
B := CHR (242); 
C := CHR (243); 
FA 
JMP $FF69 ;Monitor-Exit 
# 
END; 
BEGIN 


TRENN] := CHR (255); 
1i 


R := 

0 :='1'; 

TRENN2 := CHR (255); 
IAfl] := 257; 

IA[2] := 258; 

IA[3] := 259; 

CA = 'ABC'; 


TRENNZ := CHR (255); 
RD.RI := 513; 


RD.RR := 123456789.0; 


RD.RS := 'DEF'; 


TRENN4 := CHR (255); 
FOR I := 1 TO 3 DO 
BEGIN 


RA[I]J.RI := I+512; 
RA[I].RR := 1.0E+88; 
RA[I],RS := 'abc'; 
END; 


TRENNS := CHR (255); 
Bl := TRUE; 
B2 := FALSE; 


TRENNGS := CHR (255); 
AUFZ := ZWEI; 


TRENN? := CHR (255); 


MENGE := [0,7,8,15,16, 
{81, 81, 81, 


TRENN® := CHR (255); 
I := 10; 

ZEIGER (I); 

END. 


1234567890 .123; 


{FF} 

{05 00 wird spaeter erneut initialisiert!} 
(01 23 45 67 85 01 23 09) 

{31} 


{FF} 

{01 01} 
(02 01} 
(03 01} 
{41 42 43} 


{FF} 

{01 02} 

{01 23 45 67 89 00 00 08} 
(44 45 46) 


LEE} 


(01 02,02 02,03 02} 
{01 00 00 00 00 00 00 88} 
{61 62 63} 


{FF} 
{02} 
{00} 


{E3) 
{02 00} 


{FF} 
23,24,31,32,39,40,47,48,55,56,63]; 
Bl, 81, 8, 81, 81, 00 usw.) 


{FF} 
{0A 00} 


51 


52 


Peeker-Sammeldisk 
+16 


DOS-3.3-Format 
Einzelpreis DM 28,-; Fortsetzungspreis DM 20,- 


Extra für Fortsetzungsbezieher: 
B 027 APPLESOFT. EDITOR 


003 
007 
002 
003 
008 
002 


DIV16.DEMO 
T.DIV16 
DIV16 
DIV24.DEMO 
T.DIV24 
DIV24 


Binäres Rechnen, Teil 2: A 
002 MS8TEST T 
004 T.M8RLN B 
002 M8RLN A 
004 T.M8LRN T 
002 M8&LRN B 
004 T.M8RLT 

002 MSRLT 

004 T.M8LRT 

002 M8SLRT 

003 MI6TEST 

005 T.M16RLN 

002 MI6RLN 

005 T.MI16LRN 

002 MI6LRN 

004 T.MI16RLT 

002 MI6RLT 

004 T.MI16LRT 

002 MI6LRT 

002 MULT8RLN.DEMO 
008 T.MULT8RLN 

002 MULTSRLN 

003 MULT16RLN.DEMO 
008 T.MULT16RLN 

002 MULTI6RLN 

008 DISIESI 

005 T.D16V1 

002 D16V1 

004 T.D16V2 

002 D16V2 

004 T.D16V3 

002 D16V3 

004 T.D16V4 

002 D16VA4A 

003 D24ATEST 

004 T.D24V2 

002 D24V2 


Sonderzeichen auf dem Image- 
writer: 
015 
023 
003 
012 
002 
005 
005 
005 


FONT.LOADER 
T.FONT.LOADER.OBJ 
FONT.LOADER.OBJ 
T.FONT.CONVERT 
FONT.CONVERT 
ASCII.FONT 
DEUTSCH.FONT 
SONDERZEICHEN.FONT 


DH > 


Haushaltsverwaltung: 

A 033 HAUSHALT 
A 038 HAUSHALT.40 
T 002 DATEI 


Kyan-Pascal und Assembler: 
T 837 KYANASM 
T 020 HEXTYPEN 


Interaktive Funktionseingabe: 
T 005 FUNKSTART.TEXT 
T 003 FUNKDEMO.TEXT 
T 002 FUNKUNIT.TEXT 
T 92 FUNKEXEC.TEXT 


Zweistimmige Melodien: 

A 015 MUSIK.EDITOR 
T 010 T.TONROUTINE 
B 002 TONROUTINE 

B 018 M.SONATA 

A 002 SONATA 


A 
7 
B 
T 
B 
T 
B 
T 
B 
A 
T 
B 
T 
B 
T 
B 
T 
B 
A 
I 
B 
A 
T 
B 
A 
T 
B 
7 
B 
7 
B 
T 
B 
A 
T 
B 


Hüthig Software Service 
Postfach 102869 - 6900 Heidelberg 





Peeker-Quickie 


DUMPSOREL 
(vgl. Heft 4/85. S. 33) 


Relokativer 80-Z/Z-Screen-Dump für Ile/c. Drucker in Slot 1. Ge- 
testet auf Epson- und Imagewriter-Druckern. Aufrufen mit CALL A, 
wobei Adresse A beliebig festgelegt werden kann. 


10 DATA 173,24,192,48,1,96,162,1,181,36 

15 DATA 157,250,2,181,40, 157,252,2,181,54 

20 DATA 157,254,2,202,16,238,169,1,32,149 

25 DATA 254,169,137,32,237,253,169,206,32,237 
50 DATA 253,169,0,141,249,2,32,193,251,162 

35 DATA 0,138,74,168,144,5,141,84,192,176 

40 DATA 3,141,85,192,177,40,9,128,201,160 

45 DATA 176,2,105,64,141,84,192,32,237 ,253 

50 DATA 232,224,80,144,222,169,141,32,237 ,253 
95 DATA 238,249,2,173,249,2,201,24,144,202 

60 DATA 162,1,189,250,2,149,36,189,252,2 

65 DATA 149,40,189,254,2,149,54,202,16,238,96 
70 A=1768: REM A beliebig, hier z.B. 768 

75 FORX=ATOA+ 120: READ Y: POKE X,Y: NEXT 

































A GXeigelallef 


er Neue Preise 74 N, 


IMB-PC/XT-COMPATIBLE COMPUTER + ZUBEHÖR 

LEID PETE DE A TE TE NV ESTER Tec 

WEILLPEIG DEE TOTER) HET ESCHER Te} 

Disk Controller leer (f. 4 x 360KB-Drives) 

Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 

Color RGB + Video Graphik Leerkarte 

Parallel Printer Leerkarte 

512K-RAM Leerkarte 

Disk-Muliti I/O Leerkarte, (f. 3x360 K-Drive, 2xRS 232 1xpar. Printer 

Int., Game/Joystick Port, Real Time Clock/Kalender gepuff.) 5 
384 K-Multifunktions Leerkarte, (RS 232, par. Printer Int., 

Game/Joystick Port, Real/time Clock/Kalender gepuffert) 55,-— 
Prototype/Lochraster Leerkarte, durchkontaktiert 69,-— 
Mainboard XT-256 f. 16 bit CPU, OK (bis 256K-on board, oder 

640 K mit Addr. auf Karte aufr.) + Boot-ROM + 8 Slots best. + (e[-Je]gi ach En 
Mainboard XT-640 f. 16 bit CPU, OK (bis 640 K-on board aufr.) 327,-- 
Mainboard XT-640 w.o. jedoch 256 K-RAM best. + gepr. 

Mainborard XT-640 w.o. jedoch 640 K - vollbest. und geprüft 
64KB-RAM-Chip-Aufrüstsatz (9 Stück) einzeln geprüft! 

256 KB-RAM-Chip-Aufrüstung (9 Stück) einzeln geprüft 

Disk Controller gepr. (f. 4 x 360 KB-Drives)(Extra Kabel =39,--) 
Wehe lut-hseTsccgetzfolgsiie 

Monochrome Graph. + par. Printer Karte gepr. (Hercules comp.) 

Color RGB + Video Graphikkarte gepr. 

Parallel Printer-Karte gepr. o. Kabel (Extra Kabel = 49,-) 

512K-RAM-Karte gepr. (OKB) 129,-- 
384K-Multifunktionskarte, RS 232, par. Printer, Interf. Game/Joystick Port, 
Real Time Clock gepuff., OK + RAM-Disk/Spooler/Uhr Softw. 325,—— 
Disk Multi 1/O Karte (f. 2x360 K-Drive, 2xRS 232, 1xpar. Printer Int., 
Game/Joystick Port, Real Time Clock/Kalender gepuff.) 388,-—— 
Profi-Funktionstastatur ASCII + 15er Block ab 215,--/dt. ab 245,-- 
135W/150W-Netzteil mit eingebautem Ventilator, Kurzschlußf. 219,--/279,-- 
360KB-Diskdrive Slimline (Track Access Time <2 m S), R/W gepr. 319,—- 
Joystick f. IBM + Compatible 79,— 
EIER WEICHEN EKeleluleriilell:, 4 299,—— 
PC/XT - KOMPLETT-SYSTEME EINGEBAUT UND GEPRÜFT 

XT-640, 16 bit-Rechner (incl. Boot-Eprom) 256K-Ram im 

IBM-look-like Met.-Gehäuse+Profi-Fkt. Tast.+135 W-Netzt. gepr. 999,-— 
XT-640,w.o.+Contr.+360KBDrive+Color RGB+Vid. Graphic-Karte 1.677,-- 
XT-640, w.o. jedoch statt Color mit Monochrome Karte ” 1.737,—- 
EZ telele Wlan lelatele golutzuieieteliltenzieisieteiseiete) 1.817,-- 
Aufpreis für XT-640 M-board mit 640 K vollbestückt+gepr. 169,-- 
20 MB-NEC-Festplatte + DTC-Coutroller mit Kabel + Man., geprüft 2598,-— 


PC 10-Commodore 256 K+2 Laufwerke + Monitor + dt. Tast. 
PC 10-256 K + 1 Laufwerk + 20 MB-Festplatte 

640 K-Speichererweiterungs-Set für PC 10 

Commodore PC 128 

PHOENIX GENIE 16 C -PC-compatibel 


APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 
Motherboard II 48K leer, durchkont. mit Lötstopplack 
Motherboard Il 64 K+Z 80 CPU, leer 

M-board II 48K, gesockelt, vollbest. + gepr. 

Motherboard Il 64K gesockelt, vollbest.+gepr. 

M-board II 64K + Z80 CPU, gesockelt, v. best. + gepr. 
WELETG HT SZ eL-Kiütei te get-To]g 

APOLLO Il Kunststoff-Leergehäuse 

APOLLO II Gehäuse incl. Funkt.-Tast. 

Superstarkes Netzteil — Kurzschlußfest 5A=115,--/7A= 
Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 
Parallel-Druckerkarte, Ser. Int. V24, 802/24Z-Karte, PAL-Karte je 
Entwicklungslochraster-Leerplatine durchkontaktiert 
SPÄT IE EC KeLzjolgiiie 

APPLE orig. 16K-Language Karte gepr. 

Z-80 CPU-Karte geprüft 

Controller DOS 3.3-Karte geprüft 

Auto-Controller DOS 3.2/3.3-Karte gepr. 

Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 
EIER TEN NET Welzjelgil: 

Par.-Drucker-Grappler comp. Leerplatine 

Par.-Drucker Karte-Grappler comp. geprüft (Extra 116:101-] 7 SS) 
bit par. Int. + 64K-Buffer + Kabel gepr. (Grappler comp.) 
Seriell-Interface-Karte V24 geprüft 

Super-Seriell Leerkarte 

Super-Seriell-Interface Karte gepr. 
80-Zeichen/24-Zeilen-Karte geprüft 

802/24Z-Karte + Softswitch-Schalter Leerplatine 
80Z/24Z-Karte + Softswitch-Schalter, gest. Scharf geprüft 
802/24Z-Softwitch Karte gepr. für Ile 

802/242 +64K-Ram+Softsw. Leerkarte f. Ile 
802/24Z+64K-Ram+Softsw.-Karte best.+gepr. f. Ile 
IEEE-488 Int. Karte gepr. (Extra Kabel=45,--) 
PAL-Modulator/Color-Karte geprüft 

RGB-Color Karte gepr. 

128K-Speicher-Leerkarte 

128K-Speicher-Leerkarte + Software + Manual 
128K-Speicher-Karte + Software geprüft+Manual 
LWLEITEZTTE EST) NT) 

EPROM-Burner (2716/32/64) geprüft 
PEZFANUTWETCHeEJojgiis 

Clock Karte geprüft 

Speech Karte geprüft 

Wild Karte geprüft 

AD/DA-8Bit Karte gepr. 

UHF/TV-Modulator universell 

Lüfter anclipsbar (220 V) 

Dataphon s21d Akustikkoppler-FTZ mit RS 232/V24 Anschl. 


APOLLO//(48K) + UHF-Mod. + Gr/Kl vollbest. + gepr. 
APOLLO//(48K) + Disk II F + Contr. + 12”-Monitor 
APOLLO//A (48K) + Gr/Kl + 15er-Tastatur vollbest. + gepr. 
APOLLO//A (48K) + Disk II F + Contr. + 12”-Mon. 
APOLLO// ASKF (48K) vollbest. + gepr. Sep. Keyboard + Gr/Kl + 
15er-Block mit Funkt.-Tasten im „IBM-look like” Gehäuse 
APOLLO// ASKF (48K) w.o. + Disk II F + Contr. 

Apollo II ASFK (48K) w.o.+2xDisk II-F+Contr.+12” Mon. 
Aufpreis f.o. Systeme von 48K zu 64K 

Aufpreis von 48K zu 64K+Z80 CPU 

Apollo Ile (64K) vollbest. und geprüft 

Apollo Ile (128K) +802/24Z-Karte geprüft 

Applle Ile (64K)+15er-Tastatur vollbestückt 

Apollo Ile ASKF (64 K) vollbestückt und geprüft 

Apollo Ile (64K) +Disk II F+12” Monitor 


APPLE Ile 128K+802/24Z Karte+Softw. 

Disk-Drives voll APPLE Il, 100%ig compatibel + R/W fet-JoJguli 
Disk//+Contr. + Kabel DOS 3.3 (Siemens) im Geh. 
Disk//(Siemens) im Geh. + Kabel 

Disk//F (1/2 Höhe) im Gehäuse+Contr.+Kabel 

Disk//F (1/2 Höhe) im Gehäuse 

Disk//F-HS (High Speed 1/2 Höhe) im Gehäuse+Contr.+Kabel 
Disk//F-HS (High Speed 1/2 Höhe) im Geh.+Kabel (Track Ac.<2mS) 
Disk//F-HS-80 Track im Gehäuse + Kabel f. orig. Contr. geeignet 
Disk//F-HS-80 w.o. + Contr. + DOS 3.3 + CP/M Patch-Softw. 
Erphi DuoDisk 1,2 MByte im Gehäuse + Erphi-AFDC 3-Contr. 





APPLESOFT + Turorial + Reference Manual engl. 75,-- 
APPLE-DOS 3.3 Manual engl. 25,-- 
APPLE-DOS 3.3 Hb. dt. 45,-- 
APPLE-Pascal Reference + Operating Manual engl. 48,-- 
APPLE-Pascal Reference Hb. dt. 49,-- 
APPLE-Pascal Language Hb. dt. 39,-- 
APPLE-Fortran Manual engl. 69,-- 
CP/M-Softcard Vol. | + Il, Manual engl. 69,-- 
APPLE Il+Ile-Anwenderhandbuch deutsch (te-wi) 66,-- 


280 Karte gepr. f. APPLE//c + RAM-Disk-Software + ialoR 
Macintosh Umrüstung von 128K auf 512K 


Epson LX 80, 8 Bit/par. (Extra Traktor = 69,--) 767,-- 
EPSON FX 85F/T+, 8bit/parallel 160 Z/S. NLQ + IBM. Komp. 1.279,-- 
EPSON FX 105+, 8bit/parallel 15” sonst w.o. 1.696,-- 
EPSON Traktoraufsatz für FX 80 + FX 85 129,50 
APPLE/EPSON-Drucker Graphic-Interface + Kabel 169,-- 


MX 80/82, FX/RX 80 Spezialfarbband-Kassette 
BROTHER-Typenraddr. HR 15XL 8bit/par. neuestes Mod. 


Wir führen verschiedene Monitore von Zenith, Phillips und Sanyo mit Video - 
TTL (IBM Komp.) oder Coloreingang. — Bitte Preisliste anfordern! — 


Disketten in Box + Aufkleber I. Wahl, 10er Pack/100er Pack./ DE L-ICH 
51/4"Verstärkt BASF 3M FUJI DATA NEUTRAL 
Kieforreir| 


3,49/ 3,29 
3,69/ 3,49 3,78/ 3,58 


MAGNE- 
TICS 


4,27/ 3,97 2,56/2,46 2,25/2,15 
4,89/ 4,59 4,98/ 4,78 5,87/ 5,47 3,26/3,06 2,75/2,55 
4,59/ 4,39 4,88/ 4,68 


9,39/ 5,09 5,48/ 5,28 7,87/ 7,67 
12,49/11,59 9,88/ 9,58 12,87/12,57 
4,29/ 4,19 


LESER) 
lPPRS7/0]») 
2D, DS/DD 
1D/96TPi 
2D/96TPi 
2HD/1.2MB 
1X, Hard 


gr 
1X, SS/SD 
1D, SS/DD 


6,97/ 6,67 


Das 
r1»40)27/]D) 


1X, Hard 4,49/ 4,39 6,68/ 6,48 sind 


mw: Preise! 
Einseitig 7,29/ 6,89 7,38/ 7,08 7,67/ 7,17 
KANTE te] 11,59/11,19 9,98/ 9,78 11,17/ 9,97 


4,49/ 4,39 6,68/ 6,48 
LK BE RN :9:1:70:32:) 
7,09/ 6,89 9,88/ 9,58 10,17/ 9,77 


3M-Scotch 5'/4” Flüssig-Reinigungsset (2 Disk.) zweiseitig 48,95 
5/4" Disketten-Archivbox für 10 Disks (1 St./10 St.) 4,75/43,50 
5'/4" Disk-Karteikasten Kunststoff (ca. 80 Disk) 26,50 
514” Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 39,95 
5/4” Disk-K.K.Rauchglas, abschließb. (f. ca. 80-100 Disks) 47,50 
2000 Bl. Tabpapier (24 cm x 12” einf.) weiß oder grün/weiß perf. 45,-- 


4000 Et.-Aufkl. doppelr. (107 x 36 mm auf 240 x 12” perf. Trägerp.) 66,50 
4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12” perf. Träg.) 65,-- 
> OSZILLOSCOPE HAMEG ab Lager 
Bei Vorauszahlung frei Empfangsstation unversichert in der BRD, ausgenom- 
men Papier und Etiketten, sonst N.N. + V.S. ab DM 30,-- Preise incl. MwSt. 
Öffnungszeiten: Mo, Di, Do, Fr v. 10-18 h, Miu. Sa v. 10-14 h, la Sa v. 10-18 h. 
Telef. Best.: Mo, Di, Do, Fr von 10-19 N IRTRESE RT: Öffnungszeiten. 
GEWÄHRLEISTUNG: 6 Monate, auf alle bei uns CELETICHKETIEICHE gel] 
BUSSCHT EHESTEN EI RSETE 


REPARATUREN an Apple + Compatible Geräte + Zubehör führt unser 
Spezialistenteam garantiert zuverlässig + besonders kostengünstig aus. 
Sprechen sie mit uns. Kostenvorschlag auf Wunsch! 


R, electronic . 













Telex: 0772642 aaa-d 
Habsburgerstraße 134 
7800 FREIBURG, Tel. (0761) 276864 
Bauelemente - Bausätze - „P's 
Meßgeräte - Zubehör - Fachliteratur 
Fachgeschäft für Elektronik + Mikrocomputer 



























Für die Produktion der Begleit- 
disketten zu unseren Büchern 
kaufen wir große Mengen an 
Leerdisketten im "Bulk". 

Das sind keine "no name"- 
Artikel, sondern absolute Qua- 
litätsdisketten eines renommier- 
ten Herstellers mit Double- 
Density Spezifikation und Ver- 
stärkungsring. 

20 Stück, verpackt im Poly- 
beutel, mit Hüllen, aber ohne 
Aufkleber. DM 40,--* 


Apple Ile 
Hardware 


Sather 





Das Standardwerk über die In- 
terna des Apple Ile. 

Eine komplette Beschreibung der 
Schaltungen, RAM, ROM, VO, 
Video etc, mit vielen Abbildungen, 
Diagrammen und Schaltplänen. 
Unverzichtbar für den Hardware- 
Entwickler oder Service-Tech- 
niker - interessant und nützlich 
für jeden Apple Ile-Besitzer, der 
sich über den Aufbau und die 
Funktionsweise seines Compu- 
ters kompetent informieren will. 
Ca. 350 Seiten, DIN A4 
3-89058-040-8 DM 78,-- 





*) Preisänderungen vorbehalten 
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Apple Il 
Assembler 
Programmierung 


Wagner 





Das Assembler-Lehrbuch für 
BASIC-Kenner! 

Roger Wagner, Autor vieler be- 
kannter Software-Pakete, schrieb 
eine monatliche Kolumne über 
Assembler-Programmierung in 
der Zeitschrift SOFTALK. Der 
vorliegende Band faßt diese 
Reihe, korrigiert und erweitert, 
zusammen. Eine stufenweise 
Einführung in die Befehle und 
Strukturen der 6502 Assembler- 
sprache, mit vielen Beispielen 
von der einfachen Tongenerie- 
rung bis zum Diskettenzugriff. 
277 Seiten. 


3-89058-003-3 DM 48,-- 
komplett mit Disk 
3-89058-005-X DM 89,-- 


Computer 


L 





Ein Simulationsprogramm, das 
Sie in das Innere des 6502- 
Mikroprozessors führt. 

Sie sehen auf dem Bildschirm, 
wie die einzelnen Instruktionen 
in Zeitlupe ausgeführt werden, 
wie sich Register und Flags ver- 
ändern. Ein unverzichtbares 
Hilfsmittel beim Erlernen der 
Assemblerprogrammierung, da- 
nach ein wertvolles Werkzeug 
beim Testen Ihrer Programme. 
Komplett mit einem 6502 Edi- 
tor/Assembler und einem Lehr- 
buch zur Maschinenprogram- 
mierung (deutsch, 150 Seiten). 
3-89058-019-X DM 129,-- 





Ampersand Verlag, Teitower Damm 168, 1000 Berlin 37 


Naar en 
ANSEhHitereee een 


MEETS EEE 


| Apple Il 
Raster Grafik 


Stanton 


Die Qualität kommerzieller Ar- 
cadespiele läßt sich mit Apple- 
soft BASIC alleine nicht errei- 
chen. Das Buch führt ın die Ei- 
genarten der hochauflösenden 
Apple-Grafik ein und präsen- 
tiert schließlich eine Reihe ex- 
trem schneller Assembler-Rou- 
tinen, mit denen Sie viele Effekte 
bekannter Spiele selbst program- 
mieren können. 

Gute BASIC-Kenntnisse werden 


vorausgesetzt, eine kurze Einfüh- 


rung in Assembler-Programmie- 
rung wird gegeben. 


299 Seiten. 

3-89058-006-8 DM 49,-- 
komplett mit Diskette: 
3-89058-008-4 DM 89,-- 


I 


Ein professioneller Macro-As- 

sembler für die Apple II-Fami- 

lie. Neben allen Standard-Fea- 

tures bietet MERLIN u.a.: 

- Editor mit globalen Such- und 
Ersetzfunktionen 

- liest und schreibt DOS 3.3 
Text und Binärfiles 

- Unterstützt 65C02-Opcodes 

- enthält einen Disassembler 

- kompatibel mit vielen 80-Zei- 
chenkarten und natürlich mit 
Apple IIe und Apple Ilc. 

Deutsches Handbuch (170 S.) 

3-89058-024-6 DM 198,-- 






Bestellcoupon 


O V-Scheck liegt bei (spesenfreie Lieferung) 
O per Nachnahme (zzgl. DM 3,-- Versandspesen) 


Titel oder ISBN-Nummer 


Datum & Unterschrift 
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Schaltpläne 
Gayler 


Eine detaillierte Beschreibung 
der Schaltungen des Apple II 
und Apple IIplus. 

Wenn Sie Ihren Apple selbst re- 
parieren, Interface-Karten oder 
Schaltungserweiterungen ent- 
werfen oder einfach nur besser 
über das Innenleben Ihres Apple 
Bescheid wissen wollen - dieses 
Buch bietet Ihnen eine Fülle an 
Informationen, Schaltpläne und 
Zeitdiagramme, Theorie und 
praktische Tips. 

215 Seiten DIN A4. 


3-89058-012-2 DM 64,-- 


Mmpe 
Verlen 


Apple Pascal 
Trickkiste 


DeGroat 


Eine Sammlung von Utilities für 
den Pascal-Programmierer: 
P-Code-Decodierer, System- 
adressen, File-Konverfter (von 
DOS nach Pascal und zurück), 
DIsk-Zapper, verbesserte Ein/- 
Ausgabe-Prozeduren, Grafik- 
Routinen, Textformatierer und 
viele wichtige Informationen, 


Tips und Tricks. 

248 Seiten. 

3-89058-030-0 DM 48,-- 
komplett mit Disk: 
3-89058-032-7 DM 89,-- 


rsand 


Teltower Damm 168 
D-1000 Berlin 37 
(030) 815 80 69 





Mikrocomputer 
Grafik 
Myers 


Endlich anspruchsvolle Apple- 
Grafik Für BASIC-Programmie- 
rer. Mikrocomputer Grafik 

- enthält fast 80 lauffertige Pro- 
gramme, die die beschriebenen 
Konzepte 1llustrieren. 

- beschreibt Hidden Line- und 
Hidden Surface-Techniken, 
Skalierung, Rotation und 
Translatıon von Grafiken. 

- bietet eine Einführung in die 
Anımationstechnik. 

292 Seiten. 

3-89058-000-9 DM 49,-- 

Komplett mit Diskette: 


3-89058-002-5 DM 89,-- 


Rückgaberecht 


Wenn Ihnen ein Buch wider Erwarten nicht gefällt, dann können Sie es innerhalb von 


10 Tagen zurückschicken und bekommen, sofern das Buch unbeschädigt ist, den 


Kaufpreis erstattet. 


Dieses Recht gilt nur bei Direktbestellung beim Verlag und nicht für Software oder 


Begleitdisketten. 


Apple Pascal 
Grafik 


Swan 





22 Pascal-Programme, mit denen 
Sie die Grafikmöglichkeiten Ih- 
res Apple voll ausschöpfen: 
DESIGNER ermöglicht Ihnen 
den Entwurf eigener Zeichen- 
sätze, mit GREDIT erstellen Sie 
komplexe Bildschirm-Grafiken, 
PRINTFOTO bringt Ihre Ent- 
würfe aufs Papier. 
Darüberhinaus bietet das Buch 
Fülle fertiger Prozeduren, die 
Sie zeitsparend in Ihre eigenen 
Programme einbauen können. 
280 Seiten. 


3-89058-009-2 DM 49,-- 
komplett mit Disk: 
3-89058-011-4 DM 89,-- 


Applesoft 
Trickkiste 
Golding 





Alles, was Sie bei Applesoft bis- 

her vermißt haben: 

- Eine INPUT-Routine, mit der 
Sie auch Kommas und Doppel- 
punkte eingeben können 

- Ein PRINT USING Kom- 
mando für formatierte Ausgabe 

- eine schnelle GARBAGE 
COLLECTION 

und viele andere nützliche Utili- 

ties, dazu detaillierte Informatio- 

nen über die Arbeitsweise des 

BASIC-Interpreters, Einsprung- 

adressen, Systemvariablen. 

304 Seitem. 


3-89058-033-5 DM 44,-- 
komplett mit Disk 
3-89058-035-1 DM 89,-- 





Apple ProDOS 
Handbuch 
Worth 





Don Worth und Peter Lechner 
sind die Autoren von "Beneath 
Apple DOS", der Bibel aller 
DOS 3.3-Benutzer. In ihrem 
neuen Buch haben Sie sich Pro- 
DOS vorgenommen und mit der 
ihnen eigenen Gründlichkeit 
zerlegt. Ausführliche Beschrei- 
bung der Arbeitsweise, des 
"MLI" und des BASIC.SY- 
STEM. Das Standardwerk für 
jeden ProDOS-Anwender. 

270 Seiten. 


3-89058-036-X DM 46,-- 
komplett mit Disk 
3-89058-038-6 DM 89,-- 
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Nach dem Sprung in den Monitor mit $FF69 findet man mit 
0004.0005 und AFT’D.AFFD folgendes vor: 


0004: 7D 


AF: 


zeigt auf AF7D = Local-Bottom (= SP) 


2 2er Lokale Variablen —- ee 


AFTBD: 01: 
AFTE: 85 
AFBO: F3 
AFB3: FB 


AF: 
ERBE: 
Ar: 


AFBS: XX AX XX XX 


AFBA: FF: 
AFSB: 81 
AFS3: 00 
AFSC: 00 
AFAS: 00 


AFAB: FF: 
AFAC: 02 


AFAR: FF: 
AFAF: 00: 
AFBO: 01: 


AFBl: FP: 
AFB2: 01 
AFBA: O1 
AFBC: 61 
AFBF: 02 
ArcL: Ol 
AFCS: 61 
AFCC: 03 
AFCE: 01 
AFDE: 61 


AFD9S: FF: 
AFDA: Ol 
AFDG: 01 
AFE4: 44 


AFE?T: FF: 
AFES: 41: 
AFE9: 42: 
AFEA: 43: 
AFEB: 01 
AFED: 02 
AFEF: 03 


AFFl: FF: 
BER2: SL; 
AFFS3: 01 
AFFB: 05 


AEFD. ER 


AFFE: XX 
BOOO: 


81.81 
00 00 
00 00 
00 00 


00 


OR: 
00 00 
BZ. 
02: 
00 00 
62 63: 
02: 
00 00 
62 635: 


02: 
25 45 
45 46: 


ol: 
01: 


23 45 67 89 01 23 09: 


ol: 


XX 


8l 
00 
00 
00 


00 


00 


Br 


X: 


Level der Prozedur Zeiger 

zeigt auf AF85 = Local-Top + 1 
Lokale Variablen GC, B, A 

zeigt auf AFFB = VAR-Parameter I 


Diese 5 Bytes hier ignorieren 


Globale Variablen ——-——-————-- ———----- 


8l 
00 
00 
00 


00 


00 


00 


89 


8l 
00 
00 
00 


00 


00 


00 


00 


8l 
00 
00 
00 


00 


00 


00 


00 


8l: 
00: 
00: 
00: 


88: 


88: 


88: 


08: 


TRENNS (gleichzeitig Global-Botton) 
Mengenelemente (Bits) 0- & 
Mengenelemente (Bits)- 127 unbenutzt 
Mengenelemente (Bits} 128 — 191 unbenutzt 
Mengenelemente (Bits) 192 — 255 unbenutzt 


TRENN? 

ZWEI AUFZ 

TRENNG 

FALSE: B2 

TRUE: Bl 

TRENN5 

513: RA[1].RI 1, Satz 

1,0E488: RA[1],RR 

'abe’: RA[1].RS 

514: RA[2]„Ri 2,, Satz 

1,0488: RA[2].RR 

"abe": RA[2].RS 

519: RA[3].RI 3. Satz 

1,0488: RA[3].RR 

abe’: RA[3].RS 

TRENN4 

Sl RD.RI Record 
123456789.0 RD.RR 

’DER": RD.RS 

TRENNS3 

2. CA[Il] Char-Array CA [1..3] 
EBr CAI[2] 

ch CA[3] 

287: IA{l] Integer-Array IA [1.:3] 
258: IA[2] 

257: IA[3] 

TRENNZ 

ln C Char-Variable 
1234567890.,123 R Real-Variable 

5 ai Integer-Variable 


TRENNl (gleichzeitig Global-Top)} 


Diese 2 Bytes hier ignorieren 
Beginn der Kyan-Library, 2. Teil 





Hinweis zur Version 2.0 


Kurz vor Redaktionsschluß erhielten wir am 28.2.1986 das Vorausex- 
emplar zur Version 2.0. Danach hat sich die Parameterübergabe geän- 
dert. Der Parameterkopf umfaßt jetzt 5 Bytes statt bisher 3 Bytes. Außer- 
dem beginnen die reservierten Labels jetzt mit “_', also _SP, _T, _Lxxx 
usw. übrigens gibt es jetzt 25 Pseudo-Opcodes sowie diverse andere 
Neuerungen. Beispielsweise kann man jetzt den bislang nur ausdruck- 
baren Assemblerquelltext auf Diskette speichern und nach der Optimie- 
rung über den neuen AS(embler)-Befehl direkt assemblieren. us 


1. Auf den Datenkopf, d.h. ab Y = 3, folgen 
zunächst die lokalen Variablen des Unter- 
programms in der umgekehrten Reihenfol- 
ge, wie sie definiert wurden. 

2. Falls eine Funktion (anstelle einer Pro- 
zedur) vorliegt, so folgt jeizt der Funk- 
tionswert. 

3. Zum Schluß folgen die Parameter der 
Prozedur oder Funktion in der umgekehr- 
ten Reihenfolge, wie sie definiert wurden. 


6. Übungen 


Übung 1: Versuchen Sie mit Hilfe der 
Abb. 2 zu ergründen, welche Zahlen das 
folgende Programm in welcher Reihenfol- 
ge ausgibt. 


PROGRAM UEBUNG]; 
FUNCTION F (A, B: INTEGER): INTEGER; 
VAR ©, D: INTEGER; 


BEGIN 

Fı:= 255; 0 :=3; D:=4; 

WRETELN.A SUB, Bar Se, 2 De 

+A 
STX T 
LDY #3 

Al LDA (SP),Y 
JSR $FDDA ;Hexzahl ausgeben 
LDA #$A0 ;Leertaste 
JSR $FDED ‚ausgeben 
INY 
CPY #13 ‚insgesamt 5 Hexzahlen 
BNE &1 ‚ausgeben 
JSR $FD8E ;Return ausgeben 
LDX T 

är 

END; 

BEGIN 

WRITELN (F (1, 2)) 

END, 


Übung 2: Wenn Sie früher bereits in 
UCSD- oder Turbo-Pascal programmiert 
haben, so versuchen Sie, den Namen der 
folgenden Kyan-Funktion zu erraten: 


FUNCTION Name???: BOOLEAN; 
BEGIN 

#A 

LDA $C000 
ROL A 

ROL A 

AND #$01 
LDY #3 

STA ASP) N 
+ 

END; 


Kurzhinweise 


1. Zweck: 

Muster-Assemblerprogramme für Kyan- 
Pascal. 

2. Konfiguration: 

Apple II+/e/c; ProDOS; Kyan-Pascal 1.2 
oder 2.0. 

3. Test: 

Zunächst Dateien KYANASM und HEXTY- 
PEN von Sammeldisk auf Ihre Kyan-Ar- 
beitsdiskette mit DOSTOPRO konveriie- 
ren und danach compilieren. 

4. Sammeldisk: 

KYANASM 

HEXTYPEN 

(Quelltexte) 
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KYANASM 


{Diverse Assembler-Muster fuer Kyan-Pascal} 
{U,Stiehl/Dez. 85} 


PROGRAM KYANASM; 


TYPE 
AUFZ = (NULL, EINS, ZWEI}; 
STRING = ARRAY [1..3] OF CHAR; 


MENGE = SET OF 0..7; 


YAR 

R: REAL; 
rt: INTEGER; 
S,W: INTEGER; 
C: CHAR; 
Bl,B2: BOOLEAN; 
AL,A2: AUFZ; 
STR: STRING; 
M: MENGE ; 


{Interner Aufbau von Kyan-Datentypen: 


Real: 8 Bytes; VM MM MM MM MM MM MM MM EB 
LL HH 
(Naeheres siehe unten) 


Integer: 2 Bytes; 76543210 FEDCA98 Bits 
LE HH 
{Bit F ist Vorzeichenbit) 
( 0 bis 32767: positiv) 
(-1 bis -32768: negativ) 


Char: 1 Byte; GC := '!X': ASCII 32-127 
GC := CHR (X): ASCII 0-255 

Boolean: l Byte; 01 = TRUE, 00 = FALSE 

Pointer: 2 Bytes; LL HH (16-Bit-Adresse) 


Aufzaehlung: 2 Bytes; LL HH (Natuerliche Zahl) 
(0 bis theoretisch 655535) 


String: & Bytes: LEGE ECKE... (Nert) 
17223 Ars Brei index) 
(Index: 1 bis 32767) 
Menge: ö2 Bytes; 256 Bits: Bit 1 = IN Menge 
(stets) Bit O0 = NOT IN Menge 
Beispiel fuer SET OF d..7: 
76543210 Bit-Nummern des 1. Bytes 
10100010 Elemente 7, 5, 1 IN Menge} 
A nme Nuetzliche Routinen——----- } 


{HOME: Bildschirm loeschen} 

{Prozedur ohne Parameter: HOME; } 
{Stackaufbau hier irrelevant} 

{T = Vordefiniertes Label fuer Temporary} 
{Auf Zero-Page sind frei: T bis T+$0E,} 
{physisch: $0010 (T) bis $001E (T+$0E)} 


PROCEDURE HOME; 


BEGIN 

FA 
STX T ;Stets X in Temp ($0010) retten! 
JSR $FC58 ;HOME 
LDX T ‚Nachher stets X wieder laden! 

+ 

END; {Ersetzt RTS} 


{GOTOXY (X,Y): Htab X, Vtab Y} 

{Prozedur mit Wertparameter: GOTOXY (X, Y};) 
IX (0-73) und Y (0-23} sind Integervariablen} 
(Stackaufbau, physisch von unten nach oben:} 
{Y=6: HH X ignorierbar, d.h. O0 wegen X: 0-79} 
{Y=5: LL X von GOTO (Y,Y)} 

{Y=4: HH Y Ignorierbar, d.h. O0 wegen Y: 0-23} 
{Y=3: LL Y von GOTO (X,Y)} 

{Y=2: HH Local} 

{Y=1: LL Local} 

{Y=0: 01 Level} 

{SP = vordefiniertes Label fuer Stackpointer:} 
{(SP),Y=0 hat niedrigste Adresse, z.B, $AFF9} 
{(SP),Y=6 hat hoechste Adresse, z.B. SAFFF} 
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PROCEDURE GOTOXY (X,Y: INTEGER); 


BEGI 
#A 


Al 
*+ 
END; 


N 


STX 
LDY 
LDA 
CMP 
BCS 
JSR 
LDY 
LDA 
CMP 
BCS 
STA 
STA 
LDX 


T ‚X-Register speichern 
#3 

[SPY 2SYL: OU TAB 

+24 

Al ‚grossser als 23! 
$FBSB ;TABV 

#5 

(SP),Y ;XL: HTAB 

#80 

Al ‚groesser als 79! 


$057B :XL: HTAB 0-79 - 80 Z/Z IIe/c 
50024 :XL: HTAB 0-23 - 40 Z/Z II+/e/c 
T ‚X-Register laden 


{Ersetzt RTS} 


{KEYBOARD (C): Tastaturabfrage} 

{Prozedur mit Variablenparameter: KEYBOARD {C);} 
{C ist Char-Variable:} 

{Vorher: Wenn C = 'C'!, dann Cursor sichtbar} 


{ 


Wenn C = 'N', dann Cursor unsichtbar} 


{Nachher:C = eingegebene Taste} 
[Stackaufbau:} 


{Y=4: 
{Y=3: 
[Y=2: 
=]: 
{Y=0: 


HH 
LL 
HH 
LL 
01 


Zeiger (!) auf VAR-Parameter-Wert C} 
Zeiger (!} auf VAR-Parameter-Wert C} 
Local} 
Local} 
Level} 


PROCEDURE KEYBOARD (VAR GC: CHAR); 


BEGI 
#A 


A2 


AS 


# 
END; 


N 


STÄ 
LDY 
LDA 
STA 
INY 
LDA 
STA 
LDY 
LDA 
CMP 
BNE 
JSR 
BNE 
LDA 
BPL 
BIT 
AND 
LDY 
STA 
LDX 


E ;X-Register speichern 

+3 

ISP),Y :C-Zeiger LL in 

T+l ‚Zero-Page T+l 

ESP),Y ;C-Zeiger HH in 

T+2 ;‚Zero-Page Tr2 

#0 

{T+1),Y ;Wert von C laden (LL) 

+$43 ‚und mit 'C'’ = Cursor vergleichen 
A2 

$FDOC ;RDKEY, wenn = 'C! 

As ‚stets, weil Bit 7 stets gesetzt 
$c000 :Keyboard direkt, wenn <> 'C' 

A2 

$c010 :Keyboard Strobe 

#57F ;Bit 7 auf O setzen 

#0 

({T+1),Y ;Wert von C speichern (LL) 

T ‚X-Register laden 


{Ersetzt RTS} 


{RDKEY: Tastaturabfrage, Cursor sichtbar} 
{Funktion, aufrufen mit C := RDKEY;} 
(Stackaufbau:} 


{Y=3: 
{Y=2: 
{Y=]: 
(Y=0: 


Ü 

HH 
LL 
ol 


Funktionswert wird gepokt} 
Local} 
Local} 
Level} 


FUNCTION RDKEY: CHAR; 


BEGI 
#A 


# 
END; 


N 


STX 
JSR 
AND 
LDY 
STA 
LDX 


T ;X-Register speichern 

SFDOC ;RDKEY: Tastaturabfrage 

+57F ‚Bit 7 auf O 

#3 

{(SP),Y ;in Char-Funktionswert poken 
T :X-Register laden 


{Ersetzt RTS} 


[POKE: Poken von Wert W in Speicherstelle S} 
(Prozedur, aufrufen mit POKE (S,W);} 
[Stackaufbau:} 


[Y=6: 
[Y=5: 
[Y=4: 
1Y=3: 
1Y=2: 
(Y=1: 
IY=0: 


HA 
LL 
HH 
LL 
HH 
LL 
01 


von S} 
von S} 
von # ignorierbar} 
von W} 
Local} 
Local} 
Level} 
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PROCEDURE POKE (5,W: INTEGER)}: 


BEGIN 
#A 


: STX T ist hier ueberfluessig 


LDY #5 
LDA (SP],Y 
STA T+l 
INY 
LDA (sPi,Y 
STA Ir2 
LDY #3 
LDA (SP},Y 
LDY #0 
STA (T+l),Y 
+ 
END; 


{PEEK: Peeken von Wert W aus Speicherstelle 5} 
{Funktion; aufrufen mit W 


{Stackaufbau:} 
{Y=6: HH von S} 
{Y=5: LL von S} 


EI 


5 


;LL von 5 


;Y= 


6 


;HH von 5 


= 


3 


:LL von W 


‚poken 


{Ersetzt RTS} 


:= PEEK (S);} 


{Y=4: HH von Funktionswert ignorierbar} 
{Y=3: LL von Funktionswert (spaeter #W)} 


{Y=2: HH Local} 
fy- 12 LL>Local) 
{Y=0: 01 Level} 


FUNCTION PEEK (S:INTEGER) :INTEGER; 


BEGIN 
FA 


5 STX T ist hier ueberfluessig 


LDY #5 

LDA {SP),Y 
STA T+l 
INY 

LDA (SP),Y 
STA T+2 
LDY #0 

LDA (T+l),Y 
LDY #3 

STA (SP),Y 
LDA #0 

INY 

STA (SP),Y 


{Darstellung des internen Formats der 8 Bytes) 


= 


:Y= 


‚Y >= 
;HH von Funktionswert loeschen 


5 


;peeken 
:Y= 
:LL von Funktionswert 


3 


4 


:LL von 5 
6 


‚HH von 5 


{Ersetzt RTS} 


Demo-Routinen----—-—-—----- ——} 


{umfassenden BCD-Real-Variablen als Deno} 


{V = Vorzeichen M/E ( 1 Stelle: 


Pu 
= 
| 


= Mantisse 

{E = Exponent 
{Stackpointer 
(Zahlenformat 
(+1.234567890123 
{-1.234567890123 
(+0.12345 
{-0.12345 
{+1E+05 

{-1E+05 

{+1E-05 

{+1B-05 


0-3}} 


(13 Stellen: 0-9)} 
2 Stellen: 0-9}} 


( 
Y3 


VM 
01 
21 
11 
31 
01 
21 
1l 
31 


Y4 
MM 
23 
23 
23 
23 
00 
00 
00 
00 


Y5 
MM 
45 
45 
45 
45 
00 
00 
00 
00 


Y6 
MM 
67 
Wi 
00 
00 
00 
00 
00 
00 


PROCEDURE SHOWREAL {R: REAL); 


BEGIN 

#+A 
SIA T 
LDY #3 

A4 LDA(SPY,Y 
JSR $FDDA 
INY 
CPY #$0B 
BNE A4 
JSR $FDSE 
LDX T 

+ 

END; 


PROCEDURE SHOWBOOLEAN (Bl, B2: BOOLEAN)}; 


BEGIN 


rt 
MM 


Y8 
MM 
Ol 
01 
00 
00 
00 
00 
00 
00 


29 
MM 
28 
23 
00 
00 
00 
00 
00 
00 


;X-Register speichern 


;Level und Local ignorieren 


YA) 
EE} 
00} 
00} 
01} 
01} 
05} 
05} 
05} 
05} 


;PRBYTE: Hexzahl ausgeben 


;insgesamt 8 Bytes anzeigen 


;CROUT: Return ausgeben 
;X-Register laden 


(Ersetzt RTS!} 


{Stackaufbau verkuerzt} 


{v-4: Bl} 
{Y=3: B2} 


#A 
STX T 
LDY #4 
LDA (SP), Y ;Bl 
JSR $FDDA 
LDA #$AC ‘Komma 
JSR $FDED 
LDY #3 
LDA (SP),Y  ;B2 
JSR $FDDA 
EDX T 
# 
END: 


PROCEDURE SHOWAUFZAEHLUNG (Al, AZ: AUFZ); 


BEGIN 

{Stackaufbau verkuerzt} 
{Y=6: HH Al} 

{Y=5: LL Al} 

{Y=4: HH AR} 

{Y=3: LL A2} 


#+A 
STX T 
LDY #5 
LDA (SP),Y  ;Al 
JSR $FDDA 
INY 
LDA (SP),Y 
JSR $FDDA 
LDA #$AC ;Komna 
JSR $FDED 
LDY #3 
LDA (SP),Y ;&2 
JSR $FDDA 
INY 
LDA (SP),Y 
JSR $FDDA 
LDX T 
+ 
END; 


PROCEDURE SHOWSTRING (STR: STRING; C: CHAR); 


BEGIN 

(Stackaufbau verkuerzt} 
{Y=6: STR{3]} 

{Y=5: STR[2]} 

{y=4: STR[1]} 

{Y=3: C} 


#A 
STX T 
LDY #4 
A5 LDA (SP),Y STR 
ORA #$80 
JSR $FDED 
INY 
CPY #7 
BNE A5 
LDA #$AC ;Komma 
JSR $FDED 
LDY #3 
LDA (S5P},Y ;c 
ORA #$80 
JSR $FDED 
LDX T 
# 
END; 


PROCEDURE SHOWMENGE (M: MENGE); 
BEGIN 

{Stackaufbau verkuerzt} 

{Y=5: 3. von 32 Bytes: Elemente 
{Y=4: 2. von 32 Bytes: Elenente 
{y=3: 1. von 32 Bytes: Elemente 


+A 
SIERT 
LDY #3 

A6 LDA {SP),Y ;Mengenbytes 
JSR $FDDA 
INY 
CPY #55 
BNE A6& 
LDX T 

*+ 

END; 


16..23 usw.} 
8,.15} 
end 
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{--------—-Hauptprogramm 


BEGIN 
{HOME-Demo} 
HOME; 
WRITELN Ü'HOME'): 


{GOTOXY-Demo} 
GOTOXYT (10,10); 
WRITE ('GOTOXY {10,10} '}; 


{KEYBOARD-Denmo} 
GOTOXY (10,12); 

WRITE ('KEYBOARD mit Cursor: '); 

GC := Ct: KEYBOARD (6): WRITELN To 
GOTOXY (10,14); 

WRITE ("KEYBOARD ohne Cursor: '); 
C:= 'N':; KEYBOARD (C); WRITELN fs 


{RDKEY-Demo} 
GOTOXY (10,16); 

WRITE ('RDKEY: '); 

C := RDKEY; WRITELN {6}; 


I POKE-FEEK-Deno} 

WRITELN; C 

WRITELN ('In Bildschirm "A" poken...'); 
5 := 1024; W := 193; 


POKE [S5. W]:; 

WRITELN ("Aus Bildschirm peeken..."]: 
W:= PEEK (S); 
WRITELN (W, ' = !, 

GC := RDKEY; HOME; 


CHRIM)]: 


DISK40 


:= RDKEY; HOME; GOTOXY (0,2): 





REPEAT 
BEGIN 


END; 


HOME; 


STR 


END, 


Disketten-Organisationsprogramm für 
Apple II-+, Ile oder lic 


von Hermann Seibold und Dipl.-Ing. 
Udo Marin, 1986, 

Programmdiskette mit Anleitung, 

DM 48,- 


DISK40 entstand aus der Analyse beste- 
hender Kopierprogramme und vereint in 
sich eine Vielzahl von Möglichkeiten, die 
sich als nützlich erwiesen haben. Durch 
eine einfach zu bedienende Menüführung 
können DOS-3.3-Disketten umfangreich 
bearbeitet oder kopiert werden. 

Zu den vielfältigen Möglichkeiten des Pro- 
gramms zählen u.a.: 


Tabellarische Ausgabe der Disketten- 
belegung 


Ordnen des Catalogs 


„Undelete"n von versehentlich ge- 
löschten Dateien 


Vergleichen von Disketten, 
oder der DOS-Spuren 


Kopieren von Disketten, Dateien oder 
DOS-Spuren 


Formatieren von Daten-Disketten 


Erweitern auf 40 Spuren bei bestehen- 
den 35-Spur-Disketten 


Dateien 


UNTIL R = 0; 





[ -———----Typen-Demos------————---—— } 


{SHOWREAL-Demo} 


WRITELN; WRITE ('Realzahl eingeben (O=Ende}: "]: 
READLN (R); WRITELN (R:19):; SHOWREAL (R) 


{SHOWBOOLEAN-Demo} 

WRITELN; WRITELN ('Boolesche Werte'); 
Bl := TRUE; 
SHOWBOOLEAN (Bl, B2); 

WRITELN; WRITELN {( 'TRUE,FALSE'); 


B2 := FALSE; 


{SHOWAUFZAEHLUNG-Demo} 

WRITELN: WRITELN ('Aufzaehlung'); 
Al := EINS; 
SHOWAUFZAEHLUNG (Al, AR); 
WRITELN; WRITELN ( "EINS, ZWEI'}; 


A2 := ZWEI; 


{SHOWSTRING-Demo} 

WRITELN; WRITELN ("String + Char'); 
= 'ABC': C 
SHOWSTRING (STR, C); 

WRITELN; WRITELN (STR, ',', €); 


= 'p!: 


{ SHOWMENGE-Demo} 

WRITELN:; WRITELN ('Menge [7,3,1]'); 
M.:= (7, 1l: 

WRITELN ("Intern:'); {%10001010 = $8A} 
SHOWMENGE {M}); WRITELN; 


Ändern des Boot-Programms 
File-Editor zum Editieren von Disketten- 
Dateien 

Komfortabler Sektor-Editor für Hex- und 
ASCII-Darstellung 

VTOC-Editor, z.B. zur Freigabe der 
DOS-Spuren 


Schon nach wenigen Minuten können, 
dank der ausfühlichen Beschreibung, Dis- 
ketten nach eigenen Wünschen modifiziert 
oder Daten nach einem Disk-Crash wieder 
gerettet werden. 


Hüthig Software Service - Postfach 10 28 69 - Heidelberg 1 
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von Gerhard Röhner 


Zur Untersuchung von Funktionen ist es 
zweckmäßig, bei einem entsprechenden 
Programm einen Funktionsterm während 
des Programmlaufs eingeben zu können. 
Bei interpretierenden Systemen Ist dies 
mit selbstmodifizierenden Programmen 
relativ leicht machbar. Im UCSD-Pascal- 
System, bei dem zunächst das Programm 
in den P-Code kompiliert werden muß, läßt 
sich die Eingabe eines Funktionsterms, 
wenn auch etwas umständlicher, ebenfalls 
realisieren. 

Der Grundgedanke besteht darin, die 
Funktion in einer UNIT zu definieren, diese 
dann automatisch zu kompilieren und in 
ein Funktionsuntersuchungsprogramm 
einzubinden. Dazu wird eine Exec-Date| 
benutzt, wie sie vom Pascal-System zur 
Verfügung gestellt wird. 


Die erste Teilaufgabe besteht darin, die 
Unit zu erstellen, welche den Funktions- 
term enthält. Dies geschieht mit dem Pro- 
gramm FUNKSTART. Die Dateivariable D 
kennzeichnet eine Textdatei, welche 
durch 
REWRITE(D,’#4:FUNKUNIT.TEXT’) 

zum Schreiben eröffnet wird. In diese 
Textdatei wird die gesamte Unit FUNK- 
TION (s. FUNKUNIT) geschrieben. Der In- 
terface-Teil beinhaltet die Schnittstelle 
zwischen aufrufendem Programm und der 
Unit. Die Funktion F erwartet einen Real- 
Parameter, der Funktionswert ist ebenfalls 
eine Real-Zahl. Hier sind Erweiterungen 
auf mehrere Parameter ohne weiteres 
möglich. Im Implementation-Tei! wird die 
Funktion F definiert. Der Funktionsterm 
wird über die Tastatur eingegeben und 
dann in die Unit geschrieben. Nach 
CEOSE(BLOCK) 

ist die Unit FUNKTION als Text-Datei ver- 
fügbar. 

Zum automatischen Kompilieren und Ein- 
binden in ein Funktionsuntersuchungspro- 
gramm wird als nächstes eine Exec-Datei 
erzeugt. Sie wird als FUNKEXEC eben- 
falls auf Volume 4: geschrieben. Der Inhalt 
der Datei ist in FÜONKUNIT zu sehen. 
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Interaktive 
Funktionseingabe 


Als erstes Zeichen erhält die Exec-Datel 
einen Terminator. Im Beispiel ist es das 
Prozentzeichen. Das folgende F steht für 
den Aufruf des Filers. Mit N(ew wird die 
aktuelle SYSTEM.WRK-Datei gelöscht. 
Falls diese noch nicht mit dem Filer-Befehl 
S(ave gespeichert wurde, wird mit Y(es 
die Frage "Throw away current workfile?' 
beantwortet. Der Befehl G(et mit anschlie- 
Bendem FUNKUNIT kennzeichnet diese 
Datei als neue Arbeitsdatei. Das nächste 
Zeichen der Exec-Datei ist Q zum Verlas- 
sen des Filers. © steht für den Aufruf des 
Compilers. Nach Erzeugung der Code- 
Datei von FUNKUNIT wird durch L der 
Linker aufgerufen. Als sog. Hostfile wird 
FUNKDEMO angegeben. Die nächste 
Frage des Linkers nach dem Libfile wird 
mit SYSTEM.WRK beantwortet. Die bei- 
den WRITELN(D)-Anweisungen erzeugen 
zwei Wagenrücklauf-Zeichen als Reaktion 
auf die Fragen „Lib file?“ und „Map file? 
des Linkers. Abschließend wird mit FUNK- 
FERTIG der Dateiname des Outputfiles 
angegeben. 

Nachdem der Linker die Unit FUNKTION 
in das FUNKDEMO-Programm eingebun- 
den hat, liegt mit FUNKFERTIG ein lauffa- 
higes Programm vor. Mit dem Befehl eX- 
ecute FUNKFERTIG wird es zur Ausfüh- 
rung gebracht. Nach Beendigung des Pro- 
grammlaufs befinden sich noch die 4 Ter- 
minatorren %%%% in der EXEC-Datei. 
Sie zeigen an, daß die EXEC-Datei nun 
vollständig abgearbeitet ist. Das System 
geht danach auf die Hauptkommandoebe- 
ne zurück. 

Damit sind alle Bestandteile der Exec- 
Datei erläutert. Gestartet wird sie vom 
FUNKSTART-Programm, welches dazu 
die Unit CHAINSTUFF benutzt. Mit 
SETCHAINCEXEC/#4:FUNKEXEC)) 

wird die Abarbeitung der Exec-Datei auf- 
gerufen. 


Um das Programm FUNKDEMO in Betrieb 
nehmen zu können, läßt man zunächst 
FUNKSTART laufen, um die Unit und die 
EXEC-Datei zu erhalten. Nach dessen Ab- 








lauf befindet man sich im Filer! Dies rührt 
daher, daß ursprünglich keine Code-Ver- 
sion des Programms FUNKDEMO vorliegt 
und der Linker seine Aufgabe nicht wahr- 
nehmen kann. Der erste Programmlauf hat 
aber bewirkt, daß die UNIT erstellt und 
kompiliert wurde. Man muß sie nun noch 
als solche mit dem Befehl Save sichern 
und kann dann sein eigenes Programm 
FUNKDEMO erfolgreich kompilieren und 
sichern. Diese etwas umständliche Proze- 
dur ist nur beim erstenmal nötig, da FUNK- 
DEMO nur bei vorhandener Unit FUNK- 
TION erfolgreich kompiliert werden kann. 
Ist all dies geschehen, reicht der Aufruf 
von FUNKSTART aus. Man gibt seinen 
Funktionsterm ein und schaut zu, wie alles 
automatisch erledigt wird. 


Kurzhinweise 


1. Zweck: 

Eingabe von Funktionen im laufenden 
Pascal-Programm 

2. Konfiguration: 

Apple II+/e/c, 2 Laufwerke, Apple-Pascal 
ie er 

3. Test: 

(a) Dateien FUNKSTART.TEXT und 
FUNKDEMO.TEXT mit GETDOS-Pro- 
gramm (Disk #15) von DOS-Sammeldisk 
auf Pascal-Diskette konvertieren; (b) 
FUNKSTART.TEXT zu FUNKSTART.CO- 
DE kompilieren; (c) eXecute FUNK- 
START; endet zunächst im Filer; danach 
S(ave) von FUNKUNIT; nun FUNKDEMO 
kompilieren; (e) später nur noch jeweils 
eXecute FUNKSTART; dann Formel ein- 
geben. 

4, sammeldisk: 

FUNKSTART.TEXT 

FUNKDEMO.TEXT 

ferner: 

FUNKUNIT,TEXT 

FUNKEXEC.TEXT 


Peeker 4/86 





I UCS 


FUNKSTART FUNKEXEC 

PROGRAM FUNKSTART; AFNYGFUNKUNIT 

{von G.Roehner, 15.8.85} QCLFUNKDEMO 
SYSTEM. WRK 

USES CHAINSTÜUFF; 

VAR D:TEXT: FUNKFERTIG 

TERM: STRING; XFUNKFERTIG 

hhirh 


BEGIN 

REWRITE(D, '#4: FUNKUNIT.TEXT'); 

WRITELN(D, '{$S+} '}; FUNKDEMO 
WRITELN{D, 'UNIT FUNKTION; '}; 

WRITELN{D, 'INTERFACE'}; 

WRITELN(D, ' USES TRANSCEND; '}; 
WRITELN{D,' FUNCTION F{X:REAL):REAL:'); 
WRITELN(D, 'IMPLEMENTATION'); 
WRITELN(D, ' FUNCTION F;'); 

WRITELN{D, ' BEGIN’); 

PACE{OUTPUT}; 

WRITELN( "Geben Sie die', 


PROGRAM FUNKDEMO; 


USES TRANSCEND, 
{$U #4:FUNKUNIT.CODE} FUNKTION: 


VAR X, VON, BIS,DELTA: REAL; 


nase | BEGIN 
R | Funktionsgleichung ein'); | PAGE (OUTPUT}: 
WRITELN: | REPEAT 
i . a va 1. 
ker Beispiel: y=sinix)t2«x‘); WRITELN('Funktionsintervall'); 
E t ee : 
mir lo vr )neunmen) er 
WRITELNID, ' F:=',TERM)}; WRITELN: 
WRITELN(D, ! END; '); | 
m j ne UNTIL VON < BIS; i 
WRITELNID, "END. '); en 
WRITE( 'Schrittweite: '); 
CLOSED. LOCK] READLN{DELTA); 
REWRITE(D, "#4: FUNKEXEC. TEXT"): WRITELN: 
WRITELN(D, 'EFNYGFUNKUNIT'); „| K:=VON: 
WRITELN{D, "OCLFUNKDEMO* |): 
METTA LA EISTEBNNRN I: WRITELN{ 'x= f(x)= el) )E 
WRITELND): = 
1 X:=X+DELTA 
WRITELNID] UNTIL X > BIS 
WRITELN{D, "PUNKFERTIG']; en 
WRITELN(D, "XFUNKFERTIG'): 


WRITELNID,YEREE' }; 
CLOSEID,.LOCK]:; 

SETCHAIN 'EXEC/#4 :FUNKEXEO" ) 
END. 


FUNKUNIT 


{$S+} 
UNIT FUNKTION; 
INTERFACE 
USES TRANSCEND; 
FUNCTION F(X:REAL):REAL; 
IMPLEMENTATION 
FUNCTION F; 
BEGIN 
F:=sin(x)+2#*x 
END; 
END. 
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Zweistimmige Melodien 





Ein intelligentes Tonprogramm für den Apple Il 


von Jörg Schmidt 


Der Apple Il besitzt im Gegensatz zu vie- 
len anderen (neueren) Computern keinen 
Sound-Generator. Statt dessen muß die 
Membran des eingebauten Lautsprechers 
durch gezieltes Ansprechen der Speicher- 
stelle $C030 zum Schwingen gebracht 
werden. Gemessen am heutigen Standard 
(siehe Mockingboard) eine vorsintflutliche 
Methode, doch immerhin lassen sich so 
einfache Töne (z.B. zur Untermalung von 
Spielen) und primitive Melodien realisie- 
ren — vorausgesetzt man benutzt Maschi- 
nensprache. Schwieriger ist es dann 
schon, unter den ärmlichen Hardware- 
Voraussetzungen zweistimmige Musik er- 
klingen zu lassen — aber es geht! 


sie 


1. Das Prinzip 


1.1. Einstimmige Töne 


Adressiert man die Speicherstelle SPKR 
(Speaker = $C030), so wird der Zustand 
der Lautsprechermembran umgekehrt: Ist 
sie in der Ruhelage, so wird sie herausge- 
drückt (ein „Knack“ entsteht). Nochmali- 
ges Ädressieren bewirkt, daß die Mem- 
bran wieder in die Ruhelage zurückkehrt. 
Zusammenhängende Töne werden durch 
periodisches Ansprechen von $C030 er- 
zeugt (z.B. innerhalb einer Programm- 
schleife). Integriert man in diese Schleife 
eine durch einen Zahlenwert einstellbare 
Wartezeit, so lassen sich verschiedene 
Frequenzen erzeugen: Ist die Wartezeit 
(im folgenden als „Frequenz-Wert“ be- 
zeichnet) groß, entstehen tiefe Töne; ist 
sie klein, entstehen hohe Töne. Leider hat 
dieser Algorithmus einen Nachteil: Bei 
gleicher Anzahl der Schleifendurchläufe 


(Dauer des Tones) hält ein tiefer Ton län- 
ger an als ein hoher. 


Ein anderes Funktionsprinzip ist also not- 
wendig: 

Die Dauer des Tones ist von der Anzahl 
der Schleifendurchläufe abhängig. Nun ist 
aber die Frequenz der Schleifendurchläufe 
konstant hoch. 


Bei jedem Schleifendurchlauf wird deshalb 
ein Zähler erniedrigt, der zuvor mit dem 
Frequenz-Wert initialisiert wurde. Ist der 
Zähler bei Null angelangt, so wird er wie- 
derum mit dem Frequenz-Wert belegt und 
$C030 adressiert. Ist der Frequenz-Wert 
hoch (tiefer Ton), so wird er innerhalb der 
Schleife seltener auf Null herabgezählt 
werden können, d.h. ein dunkler Ton ent- 
steht. Ist der Frequenz-Wert klein (hoher 
Ton), so wird der damit belegte Zähler 
häufiger Null erreichen; es entsteht eine 
höhere Frequenz. 
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1.2. Zweistimmige Töne 


Soll der Ton zweistimmig sein, werden in 
der Schleife zwei Programmteile zum Ab- 
zählen und Knacken hintereinander ange- 
ordnet, jeweils für Frequenz 1 und Fre- 
quenz 2. Nun hört sich das Ergebnis noch 
sehr verzerrt an, da sich beide Frequen- 
zen gegenseitig beeinflussen. Deshalb er- 
greift man zwei Maßnahmen: 


— Zusätzlich zu Frequenz 1 und Frequenz 
2 werden Frequenz 1 und 2 durch 16 
berechnet. Ist die Membran herausge- 
drückt worden, so wird nach einem 16tel 
der Durchlaufzeit für den nächsten Knack 
die Membran wieder hineingezogen. Die 
Schwingungen werden somit kontrolliert 
abgeschlossen. 


— Es wird ein „Membran-Flag“ eingerich- 
tet (hier Akkumulator), das ständig darüber 
Auskunft gibt, ob sich die Membran in der 
Ruhelage oder im herausgedrückten Zu- 
stand befindet. So kann verhindert wer- 
den, daß eine Amplitude direkt wieder 
durch einen weiteren Versuch, die Mem- 
bran herauszudrücken, unterbunden wird. 


2. Handhabung 


Die Tonroutine für zwei Stimmen liegt ab 
$0300 im Speicher und ist somit vor Ap- 
plesoft-Programmen geschützt. Die Mu- 
sik-Files, die die Notenwerte für ganze 
Musikstücke enthalten, können in jeden 
beliebigen Speicherbereich geladen wer- 
den. Die Anfangsadresse des Musikstücks 
wird im Low/High-Format in den Speicher- 
stellen 6 und 7 abgelegt. Der Aufruf erfolgt 
mit CALL 768 ($0300). Das Stück wird 
abgespielt, bis man eine Taste drückt oder 
es zu Ende ist. 


3. Der Musik-Editor 


Der Musik-Editor ist ein Applesoft-Hilfs- 
programm zum Komporieren von eigenen 
Musikstücken, um Partituren einzugeben 
usw. Die Stücke können eingetippt, gela- 
den, abgespeichert, editiert und gespielt 
werden. 


3.1 Befehlssatz 


Der Musik-Editor arbeitet nicht menüge- 
steuert, sondern durch Eingabe von „Ein- 
Buchstabe-Kommandos". Das Programm 
zeigt als Prompt das Größer-Zeichen 
(„>“) und erwartet nun folgende Befehle, 
auf die gegebenenfalls noch weitere Ein- 
gaben folgen können: 


— Ctrl-D: DOS-Befehle ausführen (CATA- 
LOG etc.). 
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— Ctrl-L: Musikstück laden (Filename ein- 
geben). 

— Ctrl-S: Musikstück abspeichern (Filena- 
me eingeben). 

— -Ctrl-A: Musikstück an das im Speicher 
befindliche anhängen (Filename eingeben). 
— $S: Musikstück im Speicher abspielen 
(Start-Zeilennummer angeben). 

— L: Musikstück listen (Zeilenbereich ein- 
geben). Während das Listing abläuft, kann 
es mit der Leertaste angehalten und mit 


dem Schrägstrich (,„/“) abgebrochen 
werden. 
—- A: Zeilen ans Ende des Musikstücks 
anfügen. 


-E: Zeilen editieren: Geben Sie zunächst 
den Zeilenbereich an, den Sie editieren 
wollen. Ist dies getan, gibt das Programm 
die erste Zeile des Bereichs aus und er- 
wartet eine Zeile tiefer die neue Eingabe 
dieser Zeile. Dies wiederholt sich bis zur 
letzten Zeile des Bereichs. 

— N: Neues Musikstück beginnen. Das 
vorhandene Stück wird gelöscht und die 
Eingabe beginnt bei Zeile 0. 

— T: Trace-Modus ein- bzw. ausschalten. 
Ist Trace aktiv, wird bei der Ein- und ÄAus- 
gabe jede Zeile, die ausgedruckt wird, 
„mitgespielt“. 

— ?: Gibt in Kurzform Informationen über 
die einzelnen Befehle aus. 

— Esc: Beendet das Programm (zieht den 
Verlust des Musikstückes im Speicher 
nach sich). 


3.2 Ausgabeformat der Musikstücke 


Die Stücke sind zeilenweise aufgebaut. 
Ganz links steht die Zeilennummer, dane- 
ben die Dauer (ein Zahlenwert), dann der 
Notenwert der 1. Stimme und ganz rechts 
der Notenwert der 2. Stimme. 

Der Notenwert selber besteht aus einer 
Ziffer für die Oktave (1-5), daran anschlie- 
Bend die Note selber (A-G). Ist die Note 
um einen Halbtonschritt erhöht, so 
schließt sich noch ein Doppelkreuz („#“) 
an. Soll eine Stimme gar nicht ertönen, 
werden anstelle ihres Notenwertes drei 
Striche („---") eingegeben. Eine Pause 
ergibt sich, wenn bei einem gewünschten 
Längenwert beide Stimmen stumm sind. 
Als Besonderheit ist zu beachten, daß die 
Note „H“ entsprechend der amerikani- 
schen Schreibweise als „B“ einzugeben 
ist. Außerdem beginnt eine Oktave immer 
bei A und endet mit G (normalerweise C 
bis H). 


3.3 Eingabe von Zeilen 
Links steht wiederum die Zeilennummer. 


Geben Sie nun die Dauer, den Notenwert 
der 1. Stimme und den Notenwert der 2. 


4 hobby 44 


Stimme, jeweils durch Kommas getrennt, 
ein und schließen Sie mit Return ab. Das 
Format der Dauer- und Notenwerte ist 
dasselbe wie bei der Ausgabe. 

Nach Eingabe einer Zeile dauert es einige 
Sekunden, bis das Ergebnis auf dem Bild- 
schirm bestätigt wird und das Programm 
zur Eingabe der nächsten Zeile bereit ist. 
Möchten Sie keine weiteren Zeilen einge- 
ben, tippen Sie nur zwei Kommas (,„,,“), 
gefolgt von Return. Das Musikstück endet 
dann an dieser Stelle. 





3.4 Awendungsbeispiele 


Beim Dauer-Wert haben sich Vielfache 
von drei als günstig erwiesen. Eine Achtel- 
note wäre dann z.B. 6, eine Viertelnote 12, 
eine halbe Note 24 usw. Wer es etwas 
langsamer liebt, sollte entsprechende Viel- 
fache von 4 wählen. 

Hier einige konkrete Beispiele: 


„12,3A,--- ": Eine Viertelnote, erste Stim- 
me A in der 3. Oktave und zweite Stimme 
stumm. 


„3,2C#,3F": Eine Sechzehntelnote, erste 
Stimme Cis in der 2. Oktave und zweite 
Stimme F in der 3. Oktave. 

„a4,---,---": Eine Pause von einer halben 


Weitere Beispiele können dem Listing ei- 
nes Musikstückes entnommen werden, 
das die ersten Takte einer Sonate wieder- 
gibt, die sich auf der sammeldisk befindet. 


Kurzhinweise 


1.Zweck: 

Programm zur Ein- und Wiedergabe von 
zweistimmigen Musikstücken 

2. Konfiguration: 

II+ (mit G/K), Ile oder IIc; 

DOS 3.3 oder ProDOS (nicht bei MUSIK- 
EDITOR): 

3. lest: 

RUN MUSIK.EDITOR 

RUN SONATA {nur auf Sammeldisk) 

4. Sammeldisk: 

MUSIK.EDITOR 

(Applesoft-Musik-Editor) 

T.TONROUTINE 

(Big-Mac-Quelltext) 

TONROUTINE 

(Maschinenprogramm zur zweistimmigen 
Tonerzeugung) 

SONATA 

(Applesoft-Startprogramm) 

M.SONATA 

(Editiertes Musikstück als Binär-File) 
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Listing eines Musikstückes 


(die ersten Takte der Sonate auf der Sam- 
meldisk) 


VvVOoSJoCc$CmH60O 


18 20  3c 
18 26 3C | 
186 2E  3c 
18 23€ :c 
18 2C  3E 
l6e 2G  3E 
186 2E 36 
186 2G 36 
le 2D 38 
16 2C 3B 
16 2F 3B 


MUSIK.EDITOR 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 

1.1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 

| 1240 

| 1250 

1.1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
]400 
1410 
1420 
1430 
1440 
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REM -—-—---------—-- -- 
REM Musik-Editor 
REM von Jörg Schmidt 
REM Februar 1985 
REM -—-—--------—- - --. — 


TEXT : HOME : SPEED= 255 

HIMEM: 16384: CLEAR 

D$ = CHR$ (4):MA = 16384 

PRINT D$"BLOAD TONROUTINE" 

D= 0:Fl = 1:FP2 = 2:ML =6:MH = ML +1 
PL = 768:TN = PL + 40:BL = 43616 | 
DIM FR$(255) 

FOR I =0 TO 255:FR$(I) = !"?Tr": NEXT 
RESTORE : FOR I=1 705 

I$ = STR$ (I) 

FOR J = 65 TO 71:4$ = CHR$ (J) 

READ A:FR${A} = I$ + A$ 

IF A$ = "B" OR A$ = "E" THEN 1200 


READ 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
FR$(0 
POKE 
HOME 
HTAB 
HTAB 
HTAB 
HTAB 
HTAB 
HTAB 


PRINT : 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


A:FRS(A) = I$ + A$ + "#" 
J,L 
255,240, 228,216,204,192,180,172,160,152,144,136 
128,120; 114, 108, 102,95,90;,85,80,76,. 72.63 | 
64,60,57,54,51,48,45,43,40,38,36, 34 
32.30,28.27.25.24.22 .21.20,13.18,17 
16,15.14,.15 .12.12,11,10.10,9,9,8 
) Pe | (BER || 
MA,O:LN = 1 
: INVERSE 
SIPRINT SPOL 22) ° PRINT 
PRINT " MUSIK-EDITOR u 
FRINT SPC( 22): PRINT 
PRINT " VON: JOERG SCHMIDT " 
PRINT ' FEBRUAR 1986 u 
PRINT SPC( 22): NORMAL 
© PRINT 
"Befehle:": PRINT 
"<Ctrl-D>..,DOS-Operationen'" 
"<Gtrl-L>...Musik-File laden" 


en zu te Bude Ede Ein Ei 


"<sctrl-S>in 


Nectrl-A>..- 
‚..Musikstück 


rin 
a 


Musik-Pile 
Musik-File 


„Musikstück 
Zeile(n) an 
‚Zeile(n) ed 


speichern" 
anhängen" 
spielen" 
listen" 
fügen!" 
itieren" 


1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
15350 
1540 
1550 
1560 
1570 
1580 
1590 
1500 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
710 
1720 
1730 
1740 
1750 
1760 
1720 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 


2060 
2070 
2080 
2090 
2100 
2110 
z120 
2130 
2140 
2150 
2160 
2170 
2180 
2130 
2200 
2210 
ZRel 
2230 
2240 
2250 
2260 
Z20 
2280 
2280 
2300 
2310 
2520 
2330 


PRINT "Na 5 Neues Stück beginnen" 

PRINT "<Tsasassaeslrace ein/aus! 

PRINT "<?>,.,.....‚Diese Informationen" 

PRINT "<Eso>... 5 Ende des Programms" | 
PRINT ERENT MU 

POKE - 16368,0: GET A$ 


10% 
IF 
IE 
Tr 
IF 
IF 
IF 
IF 
IE 
IF 
If 
IE 


AS = 
A = 
A$ = 
A$ = 
8 = 
A$ = 
48 = 
AS = 
A$ = 
A$ = 
4$ = 


CHR$ (4) THEN 1640 
CHR$ (12) THEN 1700 
CHR$ (19) THEN 1760 


CHR$ (1) 


non 
AETEE 
EA TE 
NE 
MAT 
IWTpit 
nal 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


THEN 1810 
1910 
1990 
2070 
2120 
2190 
2220 
1360 


A$ < > CHR$ (27) THEN PRINT CHR$ (7):;: 


GOTO 1500 


HOME : END 

REM ---DOS-Operationen-—- 

ONERR GOTO 1870 

INPUT "DOS-Befehl:";A$ 

IF A$ = "" THEN 1490 

PRINT D$A$ 

POKE 216,0: GOTO 1490 

REM -—-Musik-File laden-—. 

ONERR GOTO 1870 
INPUT "Laden: ";F$: IF F$ = "" THEN 1490 
PRINT D$"BLOAD"FS$", A'MA 

LN = ( PEEK (BL) + 256 « PEEK (BL + 1)) /3 
POKE 216,0: GOTO 1490 

REM ---Musik-File speichern-—— 

ONERR GOTO 1870 

INPUT "Speichern: ";F$: IF F$ = "" THEN 1490 
PRINT D$S"BSAVE"FS" A'MATL'LN & 3 

POKE 216,0: GOTO 1490 

REM ---File anhängen-—— 

ONERR GOTO 1870 

INPUT "Anhängen: ";F$: IF F$ = "" THEN 1490 
PRINT D$"BLOAD"FE" , ATMA + LN * 3-3 

LN = LN+ ( PEEK (BL) +# 256 « PEEK (BL + 1)) / 3 -1 
POKE 216,0: GOTO 1490 | 
REM -—--DOS-Fehler—— 

POKE 216,0: PRINT 

PRINT "DOS-Fehler Nr, ' PEEK (222) CHR$ (7) 
GOTO 1490 

REM —-Stück spielen-—— 

INPUT "Spielen ab Zeile: ";ZN 

IF ZN >= _LN - 1 THEN 1490 

N=MA + ZN * 3: GOSUB 2260 

POKE ML,L: POKE MH,H: CALL PL 

PRINT "Step in zeile W; 

PRINT (( PEEK (ML) + 256 = PEEK {MH)} - MA) / 3 
GOTO 1490 

REM ---Stück listen-——. 

INPUT "Listen (Start,Ende): ":;5,E 
IFS>EORS>=LN - 1 THEN 1480 
IFE>=LN-IlTHENE=LN-2 

FOR ZN = S TO E: GOSUB 2290 


IF PEEK ( - 16384) = 175 THEN 1490 

IF {T}) OR PEEK ( - 16384) = 160 THEN POKE - 16368,0: 
WAIT — 16384,128 

NEXT GOTO 1490 

REM -—--Zeilen anfügen--- 


ZN = LN - 1: PRINT "Zeile(n) anfügen:" 
GOSUB 2380 

IF NOT PEEK (AD) THEN 1490 

EN = LN * 1:ZN = ZN = 12.6910 2098 
REM -——-Zeilen editieren-—— 

INPUT "Editieren (Start,Ende): ":S,E 
IFS>EORS >= LN - 1 THEN 1490 
IFE>=LN-1I1THENE=-LN-2 

FOR ZN = S TO E: GOSUB 2290 

GOSUB 2380: IF NOT PEEK (AD) THEN LN = ZN + 1: GOTO 1490 
NEXT : GOTO 1490 

REM -—-Neues Stück-——- 

PRINT "Neues Musikstück beginnen: " 
POKE MA,0:ZN = 0:LN = 1: GOTO 2090 
REM ---Trace ein/aus--- 

T=1 -T: PRINT "Trace "; 

IF T THEN PRINT "ein": GOTO 1490 
PRINT "aus": GOTO 1490 

REM ---Lo/Hi-Teilung--- 

H= INT {N / 256):L =N - 256 « H 
RETURN 

REM ---Zeile ausgeben--- 

AD=MAr3 x ZN 

PRINT TAB( 5 —- LEN { STR$ (ZN))JZU":"; 
PRINT TAB{ 10) PEEK (AD); 

PRINT TAB( Z0O)FR$S( PEEK (AD + 1)); 
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2340 PRINT TAB( 32)FR$( PEEK (AD + 2)) 0328: A5 01 57 TON LDA FREQUI ;Frequenz 1 
2350 IF NOT T THEN RETURN 032A: 4A 58 LSR dureh 16 
2360 POKE D, PEEK (AD): POKE Fl, PEEK (AD + 1): 032B: AA 59 LSR ;berechnen 
POKE F2, PEEK (AD + 2) 032C: AA 60 LSR 
2370 CALL TN: RETURN 032D: AA 61 LSR 
2380 REM -—-Zeile eingeben-— DSZE: 85 04 62 STA FRI1D16 
2590 PRINT TAB{ 5 - LEN ( STR$ (ZN)))ZN":"; 63 
2400 INPUT "";2$,F1$,F2$:AD = MA + ZN x 3 0330: A5 02 64 LDA FREQU2 ‚Frequenz 2 
2410 POKE AD, VAL (Z$): IF NOT VAL (Z$) THEN RETURN 0332: AA 65 LSR ‚durch 16 
2420 FOR I = 0 TO 255: IF F1$ = FR$(I) THEN WI = I 0333: AA 66 KaR ‚berechnen 
2430 IF F2$ = FR$(I) THEN W = I 0334: 4A 67 LSR 
2440 NEXT : POKE AD + 1,W1: POKE AD + 2,W2 0335: AA 68 LSR 
2450 VTAB PEEK (37): GOTO 2290 (sso, 8b 05 69 STA FR2D16 
70 
0338: A9 00 galt LDA #0 ‚Zähler 
SONATA | O033A: 85 03 TR STAA CTR ;initialisieren 
EIER r . ur 035C: A2 10 73 LDX #810 
(Beispiel für den Aufruf eines editierten 033E: AO FO 7A LDY #8$FO 
Musikstückes. M.SONATA befindet sich = 
; 8 * ——— 1, Stimme -—— 
nur auf der Sammeldisk) 77 
| 0SAN 5A 73 TONLOOP DEX 
10 HOME : PRINT "Es wird gespielt „,," | 0541: DO 10 793 BNE TON! 
20 PRINT CHR$ (4)"BLOAD TONROUTINE" 0345: A6 O1 80 LDX FREQU1 
30 PRINT CHR$ (4)'"BLOAD M.SONATA, A$2000" 0345: FO IF 8l BEQ TON 
40 POKE 6,0: POKE 7,32 0347: C9 01 82 CMP #1 ;Membran in 
50 PRINT : PRINT "2. SONATA": CALL 768 0349: FO 1B 83 BEQ TON8 ‚Ruhelage? 
60 GET A$: REM löscht Tastatur 054B: 2C 30 CO 84 BIT SPKR ‚Membran raus 
O34E: 49 01 85 EÖOR #l ;Membran-Flag 
0350: 4C 6A 03 86 JMP TON3 ‚umkehren 
TONROUTINE | 87 
0353: E4 04 88 TONl GCPX FRIDI16 ‚1/16 später? 
BSAVE TONROUTINE, A$0300, $00A6 nr 3 Bu 2 TONS 
0su7. C9200 90 CMP #0 ;Membran 
l LESE IEIIIIES ESS IZESZETEIITeITeT 0359: FO OB 91 BEQ TON ‚rausgedrückt? 
2 * Routine für zweistimmige Töne * 035B: 2C 30 CO 92 BIT SSPERR ‚Membran rein 
3 — x 035E: 49 01 93 EOR #1 ;Membran-Flag 
4 * von Jörg Schmidt, Februar 86 x 0360: AC 6A 03 94 JMP TONS ‚umkehren 
5 LES SE SI SS SEIT SISTERS TTTEeTeTT 95 
6 0365: EA 96 TONS NOP ; Timing-NOPs 
T ORG $300 0364: EA 97 NOP 
8 0365: EA 98 NOP 
9 * Aufruf: 0366: EA 99 TON8 NOP 
10 * In MUSL/MUSH die Startadresse des 0367: EA 100 NOP 
1 * Musik-Files ablegen (POKE 6, Low 0368: EA 101 NOP 
12 * POKE 7,High). Dann CALL 768 | 0369: EA 102 NOP 
14 * zum Abspielen 036A: EA 103 TON3 NOP 
14 036B: EA 104 NOP 
15 * Achtung, keine NOPs weglassen! 105 
16 | lOE * —- 2arStimme — 
17 DAUER EQU $00 ;Einzelton-Dauer 17, 
18 FREQUl EQU $01l :Frequenz 1 036C: 88 108 DEY 
19 FREQU2 EQuU $02 ‚Frequenz 2 0SseN 20 19 109 BNE TON2 
20 ETR EQU $03 ‚Zähler OS6F: AA 02 1.10 LDY FREQU2 
21 FRI1D16 EQU $04 ;Frequenz 1 /16 0371: EG. ]F JKıla3 BEQ TONY 
22 FR2D16& EQU #05 ;Frequenz 2 /16 0573: C9 01 112 CMP #1 ;Membran in 
23 MUSL EQU 306 ‚Musikstück Low 0575: FO 1B 113 BEQ TONY ‚Ruhelage? 
24 MUSH EQU $07 :High Dart 20 .80.C0- 2114 BIT SPKR ;Membran raus 
2a 037A: 49 01 115 EOR #1 ;Membran-Flag 
26 KBD EQU $C000 ‚Tastatur 037C: ACC 96 05 116 JMP TONA ; umkehren 
27 SPKR EQU $C030 ;Lautsprecher jr 
28 037F: C4 05 118 TON2 CPY FR2D16 ‚1/16 später? 
Be * Musikstück abspielen: 0381: DO 00 Ak BNE TONS 
30 035853: C9 00 120 CMP #0 ‚Membran 
0300: AO 00 Sal PLAY LDY #0 0385: FO OB ter BEQ TONY ‚rausgedrückt? 
0302: Bl 06 32 LDA :(MUSE].Y ‚Dauer 03587. 26730.600 7122 BIT SPKR ‚Membran rein 
0304: FO 21 33 BEQ PLAYEND ;0 = Ende 038A: 49 O1 123 EOR #1 ;Membran-Flag 
0306: 85 00 34 STA DAUER 0386: 45 96 053 124 JMP TON4 ‚umkehren 
0308: C8 35 INY 125 
03092 )E1:06 36 LDA (MUSL),Y ‚Frequenz 1 OSBF: EA 125 TONS NOP ‚ Timing-NOPs 
030B: 85 01 57 STA FREQUIL 0390: EA 127 NOP 
B30D. GE 38 INY 0391: EA 128 NOP 
O3S0E: Bl 06 39 LDA ({(MUSL),Y ‚Frequenz 2 0392: EA 129 TONS NOP 
0310: 85 02 40 STA FREQU2 0395: EA 130 NOP 
0512: 20 2805 Al JSR TON ;Ton spielen 0394: EA 131 NOP 
0315: AD 00 CO 42 LDA KBD ‚Taste gedrückt 0395: EA 132 NOP 
0518: 30.00 45 BMI PLAYEND ‚-> Ende 0396: BA 133 TONA NOP 
031A: A5 06 44 LDA MUSL ‚nächste Noten 0597: ER 134 NOP 
8s51e: 18 45 CLC 135 
OSlD: 69 03 46 ADC #3 0598: 06.03 136 DEG CTR 
OslF: 85 06 47 STA MUSL 039A: DO 05 ier BNE TONI1O 
0521.790-DB 48 BEE PLAY 039C: C6 00 138 DEC DAUER 
0325: E6 07 49 ING MUSH 039E: DO AO 1353 BNE TONLOOP 
0325: BO D9 50 BGSIPLAL | 0340: 60 140 RTS : Ende 
0327: 60 Ss PLAYEND RTS ‚Ende 141 
52 03Al: EA 142 TONI1O NOP ; Timing-NOPs 
53 * Zweistimmigen Einzelton spielen: 0O5A2: EA 143 NOP 
54 * (Ist ein Frequenzwert 0, wird 05A3: AC 40 03 144 JMP TONLOOP 
=) * die jew. Stimme nicht gespielt) | 
56 166 Bytes 
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Das Modembuch zur DFÜ 
Datenfern-Übertragung für Anfän- 
ger und Profis 

von Manfred und Bruno Hurth 

2. Auflage 1985, 314 S., kart., DM 
29,80 

Selbstverlag Bruno Hurth, Essen 
Gliederung 

Derzeitige Möglichkeiten der DFU 
im Bereich der DBP (Übersicht) - 
Datenübertragung im Öffentlichen 
Fernsprechnetz - BTX — Mailboxen 
- DATEX-L - DATEX-P - Öffentli- 
ches Direktrufnetz — Internationale 
Mietleitungen — Anhang - Lexikon 
Bemerkungen 

Sehr nützliches Vademekum für al- 
le Modem-Fans, insbesondere we- 
gen des umfangreichen Informa- 
tionsanbieterverzeichnisses. 





IIYIIIIY 


Basic: Mathematik per Com- 
puter 

Eine Software-Sammlung in Basic 
von Rudolf Busch 


‘1984, 108 S., 32 Abb., kart., DM 


180 

Franzis-Verlag, München 
Gliederung 

Auftakt -— Das Potenzieren — Das 
Wurzelziehen — Die Reihenfolge 
von Rechenoperationen — Ein er- 
stes Computerprogramm — Das 
Rechnen mit Exponenten — Neue 
Typen von Variablen — Das Vor- 
Definieren von Variablen-Typen — 
Die mathematischen Funktionen 
Ihres Computers - Die Ganzzahl- 
Funktion — Die „Verwandten“ von 
INT — Der Zufallsgenerator Ihres 
Computers — Winkelfunktionen — 
Logarithmus und Exponent — Zu- 
sammenfassung - Liste der Ope- 
ratoren — Übungsaufgaben 
Bemerkungen 

Gute und unkomplizierte Einfüh- 
rung in die Programmierung ma- 
thematischer Aufgaben. Für den 
Schulgebrauch geeignet. Leider 
wird das heute veraltete TRS-80- 
BASIC verwendet. 


64 


Basic: Zahlen-Umwandiungen 
Eine Software-Sammlung in Basic 
Von der Dezimal-Binär-Wandlung 
zur Spezlial-Rechenmaschine 

von Rudolf Busch 

1984, 67 S., 9 Abb., kart, DM 
16,80 

Franzis-Verlag, München 
Gliederung 

Zahlensysteme — Zahlenumwand- 
lungen — Universalprogramme — 
Sonderprobleme — Anwendungen 
— Anhang 

Bemerkungen 
Leichtverständliche Einführung in 
die Zahlensysteme mit Beispiel- 
programmen in TRS-80-BASIC., 
Applesoft-Programmierer müssen 
deshalb die Programme um- 
schreiben. 


IIIIIIIY 


Basic: Alles über Peek und Poke 
Eine Software-Sammlung in Basic 
von Heiko Requardt 


Basic: Die perfekte Behandlung 
von Zeichenketten 

Eine Software-Sammlung in Basic 
von Rudolf Busch 

1984, 90 S., 13 Abb., kart., DM 
19,80 

Franzis-Verlag, München 
Gliederung 

Was ist eine Zeichenkette? — Die 
Deklaration von Zeichen(ketten) — 
Wie lang darf ein String sein? — Die 
Bedeutung von CLEAR - Die Be- 
deutung von DIM — Die Konkate- 
nation von Strings — Der ASCII- 
Code — String-Funktionen — Der 
Graphikzeichensatz Ihres Compu- 
ters — Control-Codes und Steuer- 
zeichen — Exotisches — Übungs- 
programme 

Bemerkungen 

Enthält TRS-80-Programme zur 
String-Verarbeitung, die Apple- 
MBASIC-Programmierer zum gro- 
Ben Teil übernehmen können. 


1984, 70 S., 9 Abb., kart., DM ? ö ı ‚ : } , ’ 


19,80 

Franzis-Verlag, München 
Gliederung 

Der Peek-Befehl und seine An- 
wendung — Die Tastatur und der 
Tastaturspeicher — Der Poke-Be- 
fehl und seine Anwendung — Emp- 
fehlungen und Ausblick 
Bemerkungen 

Ein allgemeines Buch über Peeks 
und Pokes ist völlig nutzlos, da die- 
se Befehle genaue Kenntnisse der 
Speicherorganisation des jeweili- 
gen Rechners voraussetzen. Vom 
Kauf muß daher abgeraten wer- 
den. 


Programmierung des 68000 

von ©. Vieillefond 

1985, 453 S., kart. DM 64,- 
Sybex-Verlag, Düsseldorf 
Gliederung 

Grundlagen — Allgemeine Organi- 
sation von Datenübertragungen — 
Ausnahmezustände — Die Spei- 
cherverwaltung — Der Befenlssatz 
des 68000 - Änwenderprogramme 
—- Die anderen Prozessoren der 
68000-Familie 

Bemerkungen 

Wie wir dies inzwischen vom Sy- 
bex-Verlag gewöhnt sind, ist auch 
dieses Buch typographisch auf- 
wendig und damit ansprechend 
produziert worden. Leider ist auch 
hier wie bei dem „Basic Hand- 
buch“ der Titel nicht ganz zutref- 
fend gewählt, denn das 68000- 
Buch stellt mehr eine Beschrei- 
bung der Befehle denn eine Ein- 
führung für Programmierer dar. 
Man muß schon lange blättern, bis 
man ab Seite 365 einige wenige 
Miniprogramme vorfindet. 


Nomina Intormaton Services 


= Parsonal Computer Kal! 


Bundesrepublik Deutschland 
Österreich 
Schweiz 


OrkeiieeT. Dr Print 


2 1984 


ISIS Personal Computer Report 


Unternehmen, Produkte, Pro- 
gramme 

Nomina-Verlag, München 
Bemerkungen 


Dieses regelmäßig erscheinende 
Nachschlagewerk — zur Bespre- 
chung lag die Ausgabe von Juli- 
Dezember 1984 vor — bietet auf 
über 1000 Seiten im DIN-A4-For- 
mat detaillierte Informationen über 
EDV-Firmen und deren Produkte 
im PC-Bereich. Die Firma Apple 
wird beispielsweise mit zwei vollen 
Seiten gewürdigt. 


IIIIIIIN 


Basic: Programme für Kaufleute 
Eine Software-Sammlung in Basic 
von Rudolf Busch 

1985, 109 S., kart., DM 19,80 
Franzis-Verlag 

Gliederung 

Soll und Haben — Sie werden Un- 
ternehmer — Investieren und Ab- 


IIIIIIIN 


schreiben - Sie betreiben 
Datenverarbeitung — Sie analysie- 
ren Ihre Aktivitäten — Die Doku- 
mentation 

Bemerkungen 

Ein nützliches Buch für kaufmän- 
nisch interessierte MBÄASIC-Pro- 
grammierer, die hier zu vielen be- 
triebswirtschaftlichen Anwendun- 
gen wie  Zinseszinsrechnung, 
Break-even-Analyse usw. leicht- 
verständliche Programme vorfin- 
den werden. 


FRIDDUVN 


Softwareführer 1986 

für Personal-Computer 

1985, 736 S., kart., DM 23, - 
Rossipaul-Verlag, München 
Bemerkungen 

Ein sehr umfangreiches Nach- 
schlagewerk, insbesondere für An- 
wender-Software. Man beachte je- 
doch, daß die Programm-Charak- 
teristiken von den Software-Häu- 
sern selbst erstellt werden. Es 
handelt sich also nicht um objekti- 
ve Darstellungen, geschweige 
denn um Testberichte. 





Grundkenntnisse Pascal 
Zeichen, Erklärungen, Beispiele 
von Wolfgang J. Weber und Micha- 
el Mrowka 

1984, 78 S., kart., DM 5,95 
Giradet-Verlag, Essen 
Bemerkungen 

Dieses interessante Büchlein im 
Format einer Zigarettenschachtel 
(King Size!) paßt in das Jackett 
eines jeden Pascal-Programmie- 
rers. Eine wirklich gute und preis- 
werte Idee, in dieser kompakten 
Form alle Befehle von Standard- 
und UCSD-Pascal verfügbar zu 
machen. 


30002 


Apple Il Basic Handbuch 

von D. Hergert 

1984, 299 S., kart., DM 32, - 
Sybex-Verlag, Düsseldorf 
Bemerkungen 

Der Titel ist unglücklich gewählt, 
denn es handelt sich nicht um ein 
(systematisches) Handbuch, son- 
dern um ein {alphabetisches) Lexi- 
kon. Wer nähere Informationen zu 
einem bestimmten Applesoft-Be- 
fehl suchi, wird in diesem sauber 
gesetzten Nachschlagewerk rasch 
fündig werden. Mitübersetzer die- 
ses amerikanischen Buches ist üb- 
rigens der ehemalige Vorsitzende 
W. Dederichs des deutschen Ap- 
ple-Clubs AUGE. 
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DOS 3.3 -— das Diskettenbe- 
triebssystem des Apple-ll 

von Bernd Ruhland 

1985, 256 S., geb., DM 48,- 
Franzis-Verlag, München 

Wenn Sie jemals Fragen zum inne- 
ren Ablauf von DÖS 3.3 haben, 
hier ist das Buch, um Ihnen auf die 
Sprünge zu helfen, In seiner gan- 
zen Länge disassembliert und 
kommentiert liegt das Diskettenbe- 
triebssystern vor Ihnen. Sogar das 
Boot-Programm im EPROM der 
Controller-Karte wurde bearbeitet. 
Bis in das letzte Byte auseinander- 
genommen, in Tabellen verschie- 
denster Art (Einsprungadressen, 
Ablaufpläne usw.) gefaßt und mit 
kleinen erläuternden Texten verse- 
hen, läßt sich DOS 3,3 hinter seine 
Karten schauen. Ruhland geht wei- 
ter als Worth/Lechner in „Beneath 
Apple DOS“ oder alle anderen 
Veröffentlichungen. Aus einer 
Hochschularbeit heraus ist hier ein 
Buch entstanden, das allen eine 
Hilfe bietet, die Änderungen am 
DOS machen, DOS-Routinen für 
eigene (Maschinen-)Programme 
nutzen oder einfach nur verstehen 
wollen, was dort abläuft. Um vollen 
Nutzen daraus ziehen zu können, 
sollten Sie Assemblerkenntnisse 
besitzen. „Nur-BASIC“-Program- 
mierer werden die Informationen 
nicht entschlüsseln können. 
Vorschläge, welche Teile des DOS 
Sie wie verändern können, macht 
Ruhland nicht. Er beschränkt sich 
auf die minutiöse Beschreibung 
des Vorhandenen. Hier ist Ihre ei- 
gene Phantasie gefordert. DOS 3.3 
ist ein Arbeitsbuch und keine Gu- 
tenacht-Lektüre. 


IIIVIYYN 


Betriebssystem CP/M 

von Jürgen Plate 

1984, 351 S., geb., DM 56.- 
Franzis-Verlag, München 

CP/M gilt immernoch als eines der 
weitestverbreiteten Betriebssyste- 
me für Microcomputer. Das Buch 
wendet sich an alle, die sich aus- 
führlich über das Betriebssystem 
CP/M der Version 2.2, welches 
auch für die Apple-Computer ver- 
fügbar ist, informieren wollen. 
Zunächst werden alle Kommandos 
der Version 2.2, sowie ihre genaue 
Syntax beschrieben, und durch 
Beispiele ergänzt. Weiterhin wird 
eine Beschreibung der Syntax und 
des Befehlsvorates der auf der CP/ 
M-System-Diskette vorhandenen 
Dienstiprogramme ED (Editor), 
ASM (8080-Assembler) und DDT 
(Dynamic Debugging Tool) gege- 
ben. Bis zu diesem Punkt unter- 
scheidet sich das Buch auch nicht 
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wesentlich von einer Vielzahl auf 
dem Büchermarkt vorhandener 
Bücher über das Betriebssystem 
CP/M. 

Wer sich jedoch über die interne 
Struktur und den Aufbau des CP/ 
M-Betriebssystems informieren 
möchte, wird nur wenige geeigne- 
te Darstellungen finden. 

Jürgen Plate ist hier eine ausführli- 
che und übersichtliche Darstellung 
der internen Struktur des OP/M- 
Betriebssystems gelungen. 

Die Funktion des BDOS, des 
BIOS, sowie der allgemeine Auf- 
bau des Diskettenbetriebssystems 
werden ausführlich erklärt und 
durch Beispiele ergänzt, so daß 
der Leser in der Lage ist, auf ele- 
mentarer Ebene zu programmie- 
ren. Das Buch enthält ebenfalls ein 
komplettes Monitor-Programm für 
Z80-Computer, das eine Program- 
mierung auf Maschinenebene er- 
möglicht, wenn noch kein OP/M 
geladen wurde, sowie Beispielpro- 
gramme für Urlader, GETSYS, 
RUTSTKSUNdSYSGEN: 

Die Beispielprogramme beziehen 
sich oft auf den MC-CP/M-Com- 
puter und lassen sich deshalb nicht 
immer direkt auf das Apple-CP/M- 
System übertragen, liefern aber 
dennoch wertvolle Anregungen el- 
wa zum Anpassen des CP/M-Sy- 
stems an eigene Bedürfnisse, Die 
Assembler-Listings sind größten- 
teils mit dem Assembler Macro-80 
oder mit dem CP/M-Assembler er- 
stellt. Unverständlich ist es, daß 
verwendete Labels oftmals nur in 
den Befehlen des Quellcodes ent- 
halten sind, aber sonst nirgendwo 
im Listing auftauchen, was nicht 
gerade zum Verständnis des abge- 
druckten Programmes und dessen 
einfache Implementierung auf ei- 
nem anderen Rechner beiträgt. Ein 


Beispiel: 

F6E8 18 FA JR LOOP 

Das verwendete Label LOOP 
taucht sonst nirgends im Quelltext 
auf, so daß Ihnen nichts anderes 
übrig bleibt, als anhand des Bytes 
F4 das Sprungziel selbst auszu- 
rechnen, um die Position des La- 
bels im Quelltext zu bestimmen, 
falls Sie sich die Mühe machen 
wollen, diesen mit Ihrem eigenen 
Assembler zu verarbeiten. 


Am Ende des Buches findet sich 
noch eine Kurzbeschreibung des 
Multitasking-/Multiuser-Betriebs- 
systems MP/M, wo auch Begriffe 
wie Warteschlangen, Bankswit- 
ching und virtueller Speicher erläu- 
tert werden. Der Anhang des Bu- 
ches enthält eine Kommandokurz- 
übersicht über alle Directiven, die 
unter CP/M 2.2 zur Verfügung ste- 
hen, sowie eine Liste der GP/M- 
Fehlermeldungen. 











Das Buch ist alles in allem didak- 
tisch gut aufgebaut und geht sehr 
ins Detail, so daß man es fast als 
CP/M-Handbuch bezeichnen 


Anwenderprogramme 

für Apple Ilc und Apple Ile 
Grafikprogramme, Dateiverwaltun- 
gen, Datenstrukturen, Geschäfts- 
programme 

von E, Floegel 

1984, 138 S., kart., DM 19,80 
Hofacker-Verlag, Holzkirchen 
Gliederung 

Aufteilen von Zeichenkeitten - Ver- 
kettete Listen — Hashing — Regi- 
strierkasse — Notizbuch — Stich- 
wort-Kartei — AVL-Bäume - Zeich- 
nen eines Balkendiagramms - 


PFES P Di - en 2 
Für Apple Il, Ile = 

2-80-Karte 9 ee 
Disk-Intorface 69,- 


Contronics-Intert. m. Kabel 79,- 
16-K-Ram-Karte 79,- 
109,- 
139,- 
249,- 
399,- 
399,- 


HS-232-Kerie 
Eprommer (4, B, 16K) 
128-K-RAM-Karte 


256-KB-RAM-Karte 


#5. Motherboard 48-K 
of F: 6502-48K-Byte ohne Firmware 


X /r _ Händloranfragen erwünscht! 
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könnte. Empfehlenswert für alle, 
die sich mit CP/M beschäftigen, 
sei es als Anwender oder als akti- 
ver Systemprogrammierer. 





Zeichnen eines Tortendiagramms 
— Darstellung ebener Funktionen - 
Darstellung räumlicher Funktionen 
— Computer-Grafiken — Artikelver- 
waltung - ADREKART 
Bemerkungen 

Das Buch enthält eine vermischte 
sammlung von Programmen für 
kaufmännische Anwendungen. 
Den Titelzusatz „für IIc und Ile“ 
hätte man weglassen können, 
denn die Programme laufen auch 
auf dem alten Apple II+ bzw. auf 
Nachbauten. 


80-Zeichen-Karte 149,- - 
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"Design your own chip“ 


PAL-PROGRAMMER 
für APPLE II (e) 


Vollständiges Paket für den Entwurf 

und die Programmierung von PAL ICs: 

e Apple Slotkarte mit Zero-Force Fassung 

e programmiert 20- und 24 pol. PALs 

e Schutz vor Kopie und Nachbau durch 
Brennen der Security-Fuse 


Menügesteuertes Autostart-Softwarepaket: 
e Eingabe, Editierung und Speicherung 


Ihres PAL-Entwurfes 


e PAL-Assembler übersetzt die gewünsch- 
ten Logikfunktionen in das entsprechende 
Fuse-Pattern (Programmiermuster) 

e Brennen, Lesen, Kopieren auf Knopfdruck 

e Screen-Editor für Fuse Pattern 

e ausführliche Dokumentation 

e DM 1103.52/1 Jahr Garantie 
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NUCLEAR INTERFACE 
Datentechnik für 
Strahlungsmeßgeräte GmbH 
Goldstraße 64, 4400 Münster, 
Telefon: 02 51-27 35 85 
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Ein Apple macht sich fein 


Staubschutz-Abdeckungen 


getestet von Thomas Bühner 


Wenn wichtiger Besuch kommt, 
wirft man sich in Schale. Damit 
auch der Computer dazu paßt, gibt 
es für Apple Ile und Macintosh jetzt 
einen Anzug mit Fliege für festliche 
Gelegenheiten, 


Ausführungen 


Diese ausgefallene Bekleidung ist 
Teil eines kompletten Textil-Pro- 
gramms, das dafür sorgen soll, daß 
die gesamte Mikrocomputer-Anla- 
ge staubfrei bleibt. Ob Laufwerk, 
Drucker oder der Computer selbst 
— für alle Komponenten steht eine 
passende Hülle zur Verfügung. 
Auch an sparsame Gemüter wurde 
gedacht: Wer nur die Tastatur vor 
Staub schützen will, kann das tun 
und muß entsprechend weniger 
tief in die Tasche greifen. Insge- 
samt sind augenblicklich über drei- 
Big verschieden geschnittene Ab- 
deckungen erhältlich. 
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Außer dem eleganten Anzug steht 
für weniger formelle Anlässe ein 
zurückhaltenderes Design zur Ver- 
fügung. Der Stoff ist hier uni in den 
Farben Beige, Blau oder Rot. Von 
vorn nach hinten verlaufen in der 
Mitte der Abdeckung drei breite 
Streifen in unterschiedlichen Tö- 
nen der Hauptfarbe. 





Verarbeitung 


Für alle Teile wurde Baumwolle 
verwendet, so daß keine Probleme 
mit statischer Elektrizität auftreten, 
Mit Ausnahme des Anzugs mit 
Fliege, der innen gefüttert ist, be- 
steht jede Schutzhülle aus einer 
Lage Baumwolle. Der Stoff ist sau- 
ber verarbeitet worden; am Rand 
ist er jedoch nur abgesteppt. Das 
verhindert ein Äusfransen zwar 
auch zuverlässig, sieht aber nicht 
so schön aus wie ein umgeschla- 









(Temperatur 30 Grad) traten bei 
dem Uni-Design keine Schwierig- 
Keiten auf; für den Anzug mit Flie- 
ge empfiehlt sich aber die chemi- 
sche Reinigung, da hier die Gefahr 
besteht, daß die schwarzen auf die 
weißen Teile abfärben. 


Wenn der Computer regelmäßig 
nach Gebrauch abgedeckt wird, 
kann man ihn auch vor Kaffee und 
Cola schützen, indem die Schutz- 
hülle mit einem handelsüblichen 


gener Saum. Beim Waschen Spray imprägniert wird. 
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Bildschirm-Dump auf Tastendruck 


Fingerprint Plus 


getestet von Thomas Bühner 


Mittlerweile sind der Imagewriter- 
Drucker und das Super-Serial- 
Card-Interface fast zum Standard 
der Apple-Welt geworden. Herstel- 
ler anderer Interfaces können sich 
nur durch Dumping-Preise oder 
zusätzliche Extra-Funktionen 
Marktanteile sichern. Mit „Finger- 
print Plus“ liegt ein Interface vor, 
das den zweiten Weg beschreitet. 


Funktion 


Fingerprint Plus ist ein Interface mit 
eigenem RAM- und ROM-Spei- 
cher, das vor allem für die Zusam- 
menarbeit mit Mairix-Druckern 
entwickelt wurde. Es besitzt einen 
seriellen und einen parallelen Aus- 
gang. Die serielle Schnittstelle ist 
auch zum Anschluß von Modems, 
Grafik-Tabletts und ähnlichen Ge- 
räten geeignet. Beide Ausgänge 
können gleichzeitig oder unabhän- 
gig voneinander benutzt werden. 
Anschließbar sind Imagewriter, 
C.ltoh, Epson und etwa zwanzig 
weitere Drucker, darunter auch 
Farbdrucker. Laufende Programme 
kann man jederzeit unterbrechen, 
um den Inhalt des Bildschirms zu 
Papier zu bringen. 
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Lieferumfang 


Im Preis inbegriffen sind: das Inter- 
face selbst, ein druckempfindli- 
ches Sensorplättchen mit An- 
schlußkabel, ein Kabel für den 
Drucker, eine Diskette mit Testpro- 
grammen und ein Handbuch. Da 
für den Test eine knappe Vorab- 
Version des Handbuchs zur Verfü- 
gung stand, kann es nur mit Vorbe- 
halt beurteilt werden. 


Installation 


Als erstes muß man auf dem Inter- 
face kleine DIP-Schalter einstellen, 
die der Karte anzeigen, welcher 
Computer (Apple Il+ oder Ile) und 
weicher Drucker angeschlossen 
werden sollen. Die Anleitung des 
Handbuchs dafür ist einfach zu be- 
folgen. Anschließend wird das Ka- 
bel für den Drucker angebracht. 

Bevor das Interface schließlich in 
einen der Steckplätze geschoben 
wird, muß man noch das flache, 
hauchdünne, aber stabile Kabel für 
das 25x 25 mm große Sensorplätt- 
chen anbringen. Zum Schluß wird 
eine Folie von der Unterseite des 
Plättchens entfernt, damit es gut 


erreichbar in der Nähe der Tastatur 
auf das Apple-Gehäuse geklebt 
werden kann. Das flache Kabel 
hindert nicht beim Schließen der 
Gehäusehaube. 

Wenn die Installation abgeschlos- 
sen ist, überprüft man mit Hilfe der 
Programme auf der Testdiskette, 
ob der ROM- und RÄM-Speicher 
des Interfaces in Ordnung sind und 
ob die Einstellung der DIP-Schalter 
stimmt. 


Kompatibilität 


Soll Fingerprint Plus mit einem 
handelsüblichen Programm zu- 
sammenarbeiten, so hat man meist 
Erfolg, wenn bei der Auswahl im 
Programm angegeben wird, es 
werde das Grappler+ oder ein an- 
deres Interface der Firma Orange 
Micro verwendet. Im allgemeinen 
klappt es bei Software mit großer 
Interface-Auswahl — wie etwa „The 
Print Shop“ — immer, wenn man 
alle angegebenen Typen durch- 
probiert. Mouse Paint arbeitet 
durch Fingerprint Plus mit fast allen 
gängigen Matrixdruckern, nicht nur 
— wie vom Hersteller Apple vorge- 
sehen - mit dem Imagewriter. 


Sensorplättchen 


Eine Besonderheit dieses Inter- 
faces ist es, daß jedes laufende 
Programm mit einem Druck auf das 
Ssensorplätichen unterbrochen 
werden kann. Es erscheint dann 
ein Bildschirm-Menü mit den zur 
Verfügung stehenden Optionen. 
Jetzt kann der Drucker in Aktion 
gesetzt werden. Ist alles Nötige 
getan, so tippt man auf die ESC- 
Taste, und das Programm fährt an 
der gleichen Stelle fort, an der es 
unterbrochen wurde. Nach belie- 
big vielen Unterbrechungen konn- 
te nie festgestellt werden, daß ein 
Funktionsfehler des laufenden 
Programms auftrat. Es kam ledig- 
lich hin und wieder zu Störungen, 
wenn man in einem Augenblick 
unterbrach, in dem das Disketten- 
Laufwerk in Betrieb war. 


Bildschirm-Menü 


Nach einem Fingerdruck auf das 
sensorblättchen erscheint ein 
Bildschirm-Menü. Betätigt man 
jetzt nur die Return-Taste, so wird 
das Bild, das vor der Uhnterbre- 
chung des Programms zu sehen 
war, ausgedruckt. Ob es sich dabei 
um Text mit 40 oder 80 Zeichen 
Breite, um niedrig- oder hochauflö- 
sende Grafik, um volle Grafik oder 
solche mit 4 Zeilen Text handelte, 
ist unerheblich. Was im Augenblick 
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der Aktivierung des Interface zu 
sehen war, wird gedruckt, Danach 
fährt man mit dem Programm 
durch ein Tippen auf ESC fort. 
Statt sofort etwas auszudrucken, 
kann man sich auch zunächst an- 
sehen, was auf den beim Äpple zur 
Verfügung stehenden Schirmen zu 
sehen ist. Das sind: 2 x Text 
(TEXT1 und TEXT2), 1 x niedrigauf- 
lösende Grafik ohne und mit vier 
Zeilen Text (LORES1) und 2 x 
hochauflösende Grafik ohne und 
mit vier Zeilen Text (HIRESI und 
HIRES2). Der niedrigauflösende 
Grafikschirm LORES2 ist vom Me- 
nü aus nicht sichtbar zu machen. 
Mit Hilfe dieser Option läßt sich 
z.B. feststellen, ob ein Hires-Pro- 
gramm beide Grafikschirme be- 
nutzt oder nur einen. 


Will man einen der angezeigten 
Schirme auf Papier festhalten, so 
kann man sofort den Drucker star- 
ten. Wohlgemerkt, es ist gleichgül- 
tiQ, ob dieser Schirm im Augen- 
blick des Programm-Stopps tat- 
sächlich zu sehen war. 


Statt die Schirme anzusehen oder 
sie zu drucken, kann man einen 
beliebigen Text an den Drucker 
oder das Interface schicken. Die- 
ser Text kann Steuercodes für den 
Drucker oder das Interface ent- 
halten. 


Für außergewöhnliche Anwendun- 
gen wird auch die Möglichkeit ge- 
boten, mit dem gestoppten Pro- 
gramm nicht mehr fortzufahren, 
sondern statt dessen in das Äpple- 
Monitor-Programm oder in das Fin- 
gerprint-Plus-RAM zu springen. 
So kann man auch Programme in- 
spizieren, bei denen das normaler- 
weise nicht möglich ist oder eine 
grafische Darstellung eines sol- 
chen Programms auf Kassette ab- 
speichern. (Was übrigens auch für 
Computer-Neulinge nicht schwie- 
rig ist.) Die Abspeicherung auf Dis- 
kette ist ohne zusätzliche Insider- 
Tricks nicht möglich, da das Dis- 
ketten-Betriebssystem nach der 
Ankunft im Monitor nicht mehr ar- 
beitet. 


Als weitere Option bietet sich an, 
die Druck-Parameter zu verän- 
dern, die auf dem Bildschirm-Me- 
nü angezeigt werden. Das ge- 
schieht durch die abwechselnde 
Betätigung der Pfeiltasten und der 
Return-Taste. Nachdem die nöti- 
gen Parameter verändert sind, 
kann gedruckt werden, oder das 
unterbrochene Programm wird 
fortgesetzt mit ESC. 


Druck-Optionen 


Fast alle folgenden Optionen kön- 
nen direkt im Bildschirm-Menü ge- 
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ändert werden. Nur bei wenigen ist 
es nötig, eine Folge von Befehlen 
wie oben beschrieben an das In- 
terface zu schicken. Fast alle Op- 
tionen sind auch von selbstge- 
schriebenen Programmen aus auf- 
rufbar, z.B. bewirkt die Anweisung 


1020 PRINT DRUCK$; "R“ 


in einem BASIC-Programm, daß 
zukünftig das Bild um 90 Grad ge- 
dreht wird, wenn man Grafik aus- 
drucken läßt („R“ steht für „Rotie- 
ren“). Die Variable DRUCK$ ist ein 
besonderes Zeichen, das dem In- 
terface sagt: „Hier kommt ein Be- 
fehl!". Welches Zeichen (Buchsta- 
be, Ziffer, Sonderzeichen, meist 
jedoch ein Ctrl-Zeichen) das sein 
soll, kann mit dem Interface frei 
vereinbart werden. Im folgenden 
sind alle zur Verfügung stehenden 
Optionen aufgeführt. 


Optionen 
Grafik- und Textauswahl: 


— Schwarze Flächen für den Druck 
mit einer Farbe füllen (für Farb- 
drucker) 

— Weiße Flächen für den Druck mit 
einer Farbe füllen (für Farbdrucker) 
- Farbiges Drucken wählen (für 
Farbdrucker) 

— Inverses Drucken (Schwarz und 
Weiß vertauscht) wählen 

— Beliebigen Ausschnitt aus der 
hochauflösenden Grafik wählen 

— Grafik in doppelter Größe wählen 
-— Grafik um 90 Grad gedreht 
wählen 

— Grafikschirme 1 und 2 nebenein- 
ander wählen 

— Grafikschirm 1 wählen 

— Grafikschirm 2 wählen 

— Doppelt hochauflösende Grafik 
wählen 

— Niedrig- oder hochauflösende 
Grafik wählen 

— Grafik ohne oder mit vier Zeilen 
Text wählen 

—- Angezeigte Grafik drucken 

— Textschirm drucken 

— Videx-80-Zeichen-Text drucken 
(für Apple II+ mit Videx-80-Zei- 
chenkarte) 


Seiten-Layout: 


— Seiten numerieren 

- Seitennummer für Start festlegen 
— Seitenüberschrift festlegen 

— Linken Rand einstellen 

— Buchstaben pro Zeile einstellen 
—- Druckzeilen pro Seite einstellen 


Drucker-Steuerung:! 


— Line Feed nach Carriage Return 
einstellen 
— Bit 7 einstellen 








— Druckertreiber des Benutzers 
aktivieren 

- Seriele Schnittstelle auf 
300..9600 Baud einstellen 

— Befehlszeichen für Interface än- 
dern (Ausgangswert: CHR$(9)) 

— Alle Interface-Funktionen aus- 
schalten, Zeichen direkt an Druk- 
ker weitergeben 

— Serielles Interface an/aus 

— Paralleles Interface an/aus 

— DIP-Schalterstellung für Druk- 
kertyp ändern 

— Alle Interface-Parameter auf 
Ausgangswerte seizen 

— Status aller Parameter einfrieren, 
Software-Änderungen der Para- 
meter ignorieren 


Fehler und Schwächen 


In Anbetracht der langen Liste der 
Fähigkeiten von Fingerprint Plus 
finden sich erstaunlich wenig 
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Schwachpunkte. Die doppelt nied- 
rigauflösende Grafik kann nicht 
ausgedruckt werden. Das Interface 
stellt nicht automatisch fest, ob 
einfach oder doppelt hochauflö- 
sende Grafik auf dem Bildschirm 
angezeigt wird; dieser Punkt muß 
vor dem Ausdruck per Menü oder 
programmgesteuert geklärt 
werden. 

Schließlich treten manchmal Pro- 
bleme auf, wenn Änweisungen di- 
rekt eingegeben wurden, die eine 
Zahl beinhalten: Z.B. kann es vor- 
kommen, daß eine Menü-Steue- 
rung des Seiten-Layouts nicht 
mehr möglich ist, nachdem das 
Layout — wie oben beschieben — 
direkt als Befehl an das Interface 
gegeben wurde. In einem solchen 
Fall muß die „Notbremse" gezo- 
gen werden, indem man alle Para- 
meter auf ihre Ausgangswerte zu- 
rücksetzen läßt. 


Ein-Blick 


Name: 
Einsatz: 


Gesamtwertung: 
Dokumentation: 
Zweckdienlichkeit: 
Optischer Eindruck: 
Verarbeitung: 

Allgemeine Bedienbarkeit: 


Preis/Leistung-Verhältnis: 
Preis: 
Hersteller: 


Die bessere Maus 


Maus für Apple-lIl-Rechner 
getestet von Thomas Bühner 


Wer sich eine Apple-Maus ange- 
schafft hat, um die Bedienung vie- 
ler Programme einfacher zu gestal- 
ten, kennt die Probleme, die bei 
ihrer Benutzung auftreten: Man 
braucht eine freie ebene Fläche di- 
rekt neben dem Computer mit ei- 
ner Größe zwischen DIN A5 und 
DIN A4, um mit der Maus darauf 
hin- und herfahren zu können. Der 
Untergrund darf weder zu rauh 
noch zu glatt sein, damit die Kunst- 
stoff-Kugel, die an der Unterseite 
der Maus angebracht ist, gut rollen 
kann. Bewegt man sie auf dem 
blanken Schreibtisch oder einem 
Blatt Papier, wie es meist ge- 
schieht, verrutscht sie — und damit 
der Cursor — oft ein wenig, wenn 
sie losgelassen wird. Auch wenn 
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man sie hochhebt, um mit der Be- 
wegung an einer anderen Stelle 
des Untergrunds weiterzufahren, 
verrutscht der Cursor auf dem 
Bildschirm meist beim Anheben 
und Aufsetzen, weil die Kugel sich 
dabei leicht verschiebt. 


Arbeitsweise 


Diese Probleme treten weniger 
stark auf bei der Benutzung der 
„A+ Mouse“, die nach einem opti- 
schen Prinzip arbeitet. Statt die 
Bewegung einer rollenden Kugel 
zu verfolgen, nimmt eine Leucht- 
diode wahr, um welchen Betrag die 
Maus auf einem definierten Unter- 
grund verschoben wird. 

Als Arbeitsfläche dient eine 19x 23 
cm große Metallplatte, auf der sich 
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vertikal blaue und horizontal graue 
Linien im Abstand von einem Millli- 
meter befinden. ihre Oberfläche ist 
mit einem unempfindlichen Kunst- 
stoff versiegelt, der in der Haftung 
eiwa einer gewachsten Schreib- 
tischplatte entspricht. An der Un- 
terseite der Maus sind zwei Filz- 
streifen angebracht, die für eine 
gute Beweglichkeit sorgen. 


Kompatibilität 


Die A+ Mouse ist 100% hardware- 
und software-kompatibel zur 
Apple-Maus. 


Platzersparnis 


Die Reibung zwischen dem Filz 
und der Kunststoff-Oberfläche der 
Arbeitsplatte ist recht groß, so daß 
die Maus erst bei einer Neigung 
des Untergrunds von 20 Grad zu 
rutschen beginnt. Somit braucht 
für den Betrieb auf dem Schreib- 
tisch kein Platz mehr freigehalten 
zu werden, Wenn die Maus ge- 
braucht wird, zieht man einfach un- 
ter den Arbeitsunterlagen die Me- 





tallplatte hervor und legt sie eini- 
germaßen eben auf die Papier- 
stapel, 


Genauigkeit 


Wegen der hohen Reibung ver- 
rutscht die A+ Mouse nicht, wenn 
man sie losläßt, um mit der Tasta- 
tur weiterzuarbeiten. Die kleinste 
Strecke, die man mit der optischen 
Maus fahren kann, beiträgt etwa 
1/3 mm, was somit erheblich unter 
der Auflösungsstärke des Strich- 
abstandes von 1 mm liegt. Das hat 
zur Folge, daß eine sehr exakte 
und sensible Führung möglich ist, 


was jeder zu schätzen weiß, der 
mit Grafik-Programmen arbeitet. 
Auch beim Anheben und Absetzen 
resultieren geringere Cursor-Be- 
wegungen als bei der gewohnten 
mechanischen Apple-Maus. 


Kein Interface 


Der große Nachteil der A+ Mouse 
ist jedoch, daß kein Interface mit- 


geliefert wird. Da sie vor allem für 
enttäuschte Apple-Maus-Besitzer 
gedacht ist, gehen die Hersteller 
wohl davon aus, daß jeder Käufer 
bereits das originale Maus-Inter- 
face sein eigen nennt. Für Apple- 
Ilc-Besitzer stellt das kein Problem 
dar: In ihrem Computer ist es oh- 
nehin schon serienmäßig einge- 
baut. 
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Joystick einfacher anschließen 


Game-Socket-Extender 
getestet von Thomas Bühner 


Zwei Probleme können bei dem 
Anschluß von Joysticks an einen 
Mikrocomputer der Apple-Il-Serie 
auftreten. Zum einen hat der ge- 
kaufte Joystick vielleicht einen 
„falschen“ Anschlußstecker. Beim 
Apple II+ kann nur auf der Haupt- 
platine rechts hinten ein 16-Pin- 
DIL-Stecker angeschlossen wer- 
den. Man kann hier also keinen 
Joystick mit einem der mittlerweile 
beim Apple Ile und Ilc üblichen 
kompakteren 9-Pin-Stecker (tra- 
pezförmig) verwenden. 

Doch selbst wenn ein Joystick ei- 
nen 16-Pin-DIL-Stecker hat, be- 
steht immer noch das Problem, 
daß der Anschluß dafür sowohl 
beim Apple II+ als auch beim Ile 
auf der Hauptplatine des Compu- 
ters sitzt, Das bedeutet, daß jedes- 
mal, wenn der Joystick gegen Pad- 
dies, Koala Pad oder ein anderes 
Gerät ausgetauscht wird, die Ge- 
häusehaube abgenommen werden 
muß, weil der Anschluß von außen 
nicht zugänglich ist. 


Funktionsweise 


Diese Sorgen ist man los, wenn 
man über einen der „Happ Game 
Port Extender" verfügt, eine An- 
schlußstelle für Joysticks, die au- 
Ben am Computer sitzt. Das Prin- 
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zip ist simpel: Eine Buchse für 9- 
Pin- oder 16-Pin-Stecker wird an 
der Seite des Apple angebracht 
und über ein Verlängerungskabel 
mit der Hauptplaiine verbunden. 
Nun braucht die Gehäusehaube 
nicht mehr abgenommen zu wer- 
den, wenn man Joysticks und Pad- 
dles tauscht. 


Montage 


Befestigt wird der Extender entwe- 
der mit zwei Schrauben an den 
Ventilation-Schlitzen des Apple 
oder man zieht ein Stück Folie ab 
und klebt ihn auf eine beliebige 
Stelle des Gehäuses. Entscheidet 
man sich für die Ventilation-Schlit- 
ze, muß beim Apple Ile das Ge- 
häuse abgeschraubt werden, um 
die Montage zu ermöglichen, da 
sich sein Gehäuse etwas von dem 
des Apple II+ unterscheidet. 


Ausführungen 


Für die Buchse des Extenders ste- 
hen verschiedene Möglichkeiten 
zur Wahl. Begnügt man sich mit 
einem Anschluß, so sind eine 9- 
Pin- und eine 16-Pin-Version ver- 
fügbar, die auf dem 45 x 45 mm 
großen Extender untergebracht 
sind. Möchte man aber gleichzeitig 
Paddles und Joystick am Compu- 


ter anschließen, braucht man zwei 
Buchsen. Hier kann man sich nun 
aussuchen, ob man auf einer Flä- 
che von 65 x 75 mm lieber zwei 
16-Pin-Anschlüsse oder eine 9- 
Pin- und eine 16-Pin-Buchse ha- 
ben will. Auch für den Apple Ilc gibt 
es zwei spezielle Versionen, die 
eine bzw. zwei 9-Pin-Buchsen 
haben. 

Bei der Version mit zwei Buchsen 
Kann mit einem Schalter zwischen 
den angeschlossenen Geräten 
hin- und hergeschaltet werden. Für 
die wenigen Action-Spiele, die den 
Betrieb von zwei Joysticks — und 
somit zwei Spielern — gleichzeitig 
erlauben, ist auch eine entspre- 
chende Schalterstellung vor- 
handen. 


Sicherheit 


Beim 16-Pin-Anschluß besteht 


nicht wie sonst die Gefahr, daß 
sich ein Beinchen des Steckers 
verbiegt oder sogar abbricht: Der 
Stecker muß nicht in die Fassung 
gedrückt werden, sondern man 
legt ihn dort nur locker ein. Festge- 
halten wird er erst, wenn man ei- 
nen kleinen Hebel kippt. 


Aussehen 


Leider sind diese Extender nicht 
sehr angenehm zu betrachten. Ihr 
verhältnismäßig rohes, techni- 
sches Aussehen paßt nicht zum 
eher weichen Design des Apple- 
Gehäuses. Die einzige Möglich- 
keit, den Extender außer Sicht un- 
terzubringen, besteht darin, ihn auf 
die Rückseite des Apple zu kleben, 
wobei dann beim Apple Ile aller- 
dings zwei bis drei Kabel-Öffnun- 
gen unbrauchbar werden. 


Ein-Blick 


Name: 
Einsatz: 


Gesamtwertung: 
Zweckdienlichkeit: 
Optischer Eindruck: 
Verarbeitung: 
Allgemeine Bedienbarkeit: 
Preis/Leistung-Verhältnis: 
Preis: {1 Anschlußbuchse) 
{2 Anschlußbuchsen) 
Hersteller: 


Happ Game Socket Extender 
Leichtere Bedienung des 
Apple-Game-Ports 

Seas 

Keeer 


EEK 

KEREK 

rk 

$ 19,- 

$ 35,- 

Happ Electronics, Inc 
USA 


(Die beste Bewertung entspricht 5 Sternen) 


‚ Oshkosh, 
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CP/M-Karte für 


getestet von Harald Grumser 


Ein Grund für den Erfolg des Apple 
I1+ und Ile liegt in der Möglichkeit, 
gleichzeitig sowohl 6502- als auch 
Z80-Programme benutzen zu kön- 
nen, wodurch sich das riesige An- 
gebot der CP/M-Software er- 
schließt. Der Ilc erlaubt normäler- 
weise keine Aufrüstung mit Zu- 
satzkarten. Die englische Firma 
Cirtech bietet für dieses Gerät eine 
Huckepack-Platine an, die nach 
dem Einbau (s. Peeker 2/86, S. 63) 
die Benutzung von CP/M 3.0 (CP/M 
Plus) und CP/M 2.23 gestattet. Die 
Karte wird in Deutschland exklusiv 
von der Firma Semjan in Frankfurt 
vertrieben. 


1. Software 


1.1. CP/M 3.0 beim Ilc 


Unter CP/M 3.0, das auf Wunsch 
mitgeliefert wird, werden 128K 
RAM verwaltet, und ein im Liefer- 
umfang enthaltenes Patch-Pro- 
gramm für MBASIC erlaubt auch 
hier den Zugriff auf die höhere 
Speicherkapazität. Zu den Beson- 
derheiten dieser Ilc-Implementie- 
rung gehört u.a. die Unterstützung 
der Maus in allen CP/M-Program- 
men (S.U.). 

Die Einrichtung von Zusatzmenüs, 
die über eine Apfeltastenkombina- 
tion zugänglich werden, bietet ei- 
nen fast mac-ähnlichen Komfort. 
So können zu jeder Zeit — also 
auch während der Ausführung 
eines Anwenderprogramms — Dis- 
ketten formatiert und kopiert oder 
ein Dump des Bildschirms auf den 
Drucker ausgegeben werden. 
Durch eine raffinierte Interrupt- 
Steuerung (auch die Maus wird 
vom Z80O verwaltet) wurden ver- 
schiedene Puffer realisiert, die 
eine reibungslose Ein/Ausgabe 
gewährleisten. Selbst der Drucker 
ist mit 12.000 Zeichen gepuffert, 
wodurch z.B. ein Bildschirm- 
Dump ausgegeben werden kann, 
während man die normale Arbeit 
fortseizt. 


1.2. Erweitertes BIOS 


Der wesentliche Teil der Vorzüge 
des CP/M 3.0 beim Ilc liegt in dem 
erweiterten BIOS. Die Bildschirm- 
und Tastatur-Ein/Ausgabe erfolgt 
über den Z80-Prozessor, wodurch 
sich eine bedeutend größere Ver- 
arbeitungsgeschwindigkeit ergibt. 
Nur für den Diskettenzugriff wird 
auf den 65C02 zurückgeschaltet. 

In das BIOS aufgenommen wur- 
den auch Routinen zur Maussteue- 
rung. Wie bereits oben erwähnt, 
wird die Maus durch den Z80O be- 
dient und kann durch ein Assem- 


Peeker 4/86 


Apple IIc 


bler-Programm über BIOS-Aufrufe 
abgefragt werden. 

Auch sind BIOS-Aufrufe imple- 
mentiert worden, die z.B. ein Fen- 
ster in den Bildschirm einblenden 
und den ursprünglichen Bildschirm- 
inhalt retten. Zur Programmierung 
dieser zusätzlichen Funktionen 
kann ein Programmierpaket für ca. 
DM 500 erworben werden, das ne- 
ben Assembler und Debugger von 
Digital Research drei umfangreiche 
Manuals bietet, die im Detail auf 
die Besonderheiten von CP/M 3.0 
eingehen. 


2. Hardware 


Der Einbau der Karte dauert länger 
als eine halbe Stunde und sollte 
nicht nur wegen der Garantie-An- 
sprüche — die diesbezügliche An- 
gabe im Peeker 2/86, S. 63 war 
falsch — von einem Apple-Händler 
vorgenommen werden. Es kann 
nämlich nicht verschwiegen wer- 
den, daß die Karte nicht auf jedem 
IIc läuft. So konnte auf dem Ilc in 
der Peeker-Redaktion weder die 
ursprünglich zugesandte Karte, 
noch die Zweitkarte, die Herr Sem- 
jan persönlich vorbeibrachte, zu- 
friedenstellend zum Laufen ge- 
bracht werden, weshalb sich auch 
der Testbericht verzögert hatte. 
Offenbar versetzt die Karte den IlIc 
beim Einschalten nicht immer in 
den normalen Kaltstart-Zustand. 


Beispiel: Wenn man den Strom 
einschaltet, läßt sich das Pro- 
gramm „Superquick“, das auf- 
grund des uns vorliegenden Quell- 
codes nur legale Softswitches be- 
tätigt, nicht korrekt starten, obwohl 
es die Z80-Karte gar nicht benutzt. 
Drückt man bei unserem bereits 
eingeschalteten |lc jedoch mehr- 
mals Otrl-Apfel-Reset, so funktio- 
niert das Programm „meistens“; 
ohne die Karte funktioniert es auf 
unserem |ic immer. Leider bietet 
das mitgelieferte Handbuch keine 
detaillierten technischen Informa- 
tionen, und auch Herr Semjan 
konnte sich nicht erklären, warum 
ausgerechnet bei unserem Ilc die 
Karte nicht funktioniert. 

Die Cirtech-Karte verfügt nicht 
über einen eigenen Quarz. Nach 
Angabe von Herrn Semjan wird die 
Frequenz durch einen freischwin- 
genden Oszillator abgeleitet. Es 
dürfte daher nicht möglich sein, 
extrem zeitkritische Routinen, wie 
z.B. Disk-l/O, in Z80 zu realisie- 
ren. Diese Frequenz liegt laut Her- 
stellerangaben zwischen 4 und 5,7 
MHz, obwohl der verwendete Z80 
noch mit 8 MHz arbeiten könnte. 





Fazit 


Wer mit seinem Ilc auch in die Welt 
der CP/M-Programme (Word- 
star, Turbo-Pascal...) einsteigen 
möchte, findet mit dieser Karte zu 
einem recht günstigen Preis von 
unter DM 1000,- (inkl. Betriebssy- 
stem) eine unkomplizierte Mög- 
lichkeit. Die umfangreiche Anpas- 


sung des Betriebssystems an 
die Hardware-Gegebenheiten des 
Apple bieten einen zusätzlichen 
Komfort, der anderen CP/M-Be- 
nutzern vorenthalten bleiben muß. 


Die Anwendungsmöglichkeiten 
des Ilc werden durch diese Karte 
in jedem Fall vervielfacht. 





PAL-Programmer für Apple 





Ein vollständiges Paket für die Pro- 
grammierung von PAL-ICS (Pro- 
grammable Array Logic) bietet die 
Firma nuclear interface in Münster 
(Tel. 0251/273585) an. Es be- 
steht aus einer Steckkarte für den 
Slot des Apple Il oder Apple Ile 
und einer umfangreichen Softwa- 
re. Der PAL-Programmer ermög- 
licht das Auslesen, Kopieren und 
Brennen von 20-poligen und 24- 
poligen PALs sowie das Brennen 
der Security-Fuse (das PAL kann 
dann nicht mehr ausgelesen oder 


Roll-Maus 


Als Low-cost-Version für den Apple 
|| bietet sich die Roll-Maus der Fir- 
ma W. Dederichs an. Sie hat eine 
Lauffläche von 10 x 10 cm und ar- 


'beitet auf mechanischer Basis. Die 


Maus verfügt über zwei Push-But- 
tons und ist daher für viele Pro- 
gramme einsetzbar, die normaler- 
weise mit zwei Paddlies arbeiten. 
Angeschlossen wird die Maus an 
den Game-I/O. Unterschiedliche 
Konfektionierungen für Apple Il, 
Apple II+ bzw. Apple Ile sowie 
Apple Ilc sind erhältlich. 


Wirft man einen neugierigen Blick 
ins Innere der Maus, so wird man 
feststellen, daß die Übertragung 


kopiert werden: Schutz vor Nach- 
baul). Der im Softwarepaket ent- 
haltene PAL-Assembler (PALASM 
von MMI) ermöglicht die Überset- 
zung von Logikfunktionen in die 
entsprechenden Fuse-Paitern 
(Programmiermusier). Ein Screen- 
Editor für Fuse-Pattern, mit dem 
die gesamte Fuse-Matrix auf dem 
Bildschirm oder dem Drucker aus- 
gegeben werden kann, steht zu- 
sätzlich zur Verfügung. Das ge- 
samte Paket kostet etwas über 
1.100,- DM. 


der Rollbewegungen der Kugel 
durch eine Übersetzungsschnecke 
auf die Potis erfolgt. Hierdurch lie- 
fert die Maus sehr präzise und 
konstante Werte zwischen DO und 
255. 

Mit der Maus wird eine Software- 
anpassung geliefert, um das Pro- 
gramm Mouse-Paint auch mit dem 
Game-l/O betreiben zu können. 
Weitere Programme, wie z.B. 
KoalaPad-Software lassen sich 
ebenfalls gut mit dieser Maus an- 
wenden. 

Bei einem Preis von DM 195,00 für 
diese Maus inkl. Software-Anpas- 
sung für Mouse-Paint dürfte dies 
eine interessante Lösung für gra- 
fikbegeisterte Computeranwender 
sein. 
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Produkte 94 


USV: Unterbrechungsfreie 
Stromversorgung 


Microstal ist eine USV-Anlage, 
speziell entwickelt zum Schutz von 
Mikrocomputern vor Neizstörun- 
gen wie 

— totalem Stromausfall, 

— Mikrounterbrechungen, 

— Stromschwankungen, 

— Frequenzschwankungen. 

Bei Microstal wird der Netzstrom 
gleichgerichtet, in der eingebauten 
gasdichten wartungsfreien Batterie 


„gelagert und über den Wechsel- 
richter wieder neu erzeugt, unab- 
hängig vom Stromnetz. Somit ist 
gewährleistet, daß nach einem 
Netzausfall die für den Computer 
so tückische Frequenzverschie- 
bung ausgeschlossen ist. Eingang 
vom Netz und Ausgang der USV- 
Anlage sind absolut unabhängig 
voneinander. Microstal ist in Ver- 
bindung mit Apple II und III ver- 
wendbar. 





Z80+ Card 


Mit dieser Z80-Karte erhält man 
zwei Z80-Karten in einer, da sie 
softcard-kompatibel (2.046 MHz) 
und ALS-CP/M-kompatibel {8 
MHz ohne Wäaitzyklen) betrieben 
werden kann. Die mitgelieferte 
Software ermöglicht es, aus einem 
vorhandenen Softcard-CP/M 2.20 
eine CP/M-2.2-Version zu erzeu- 
gen, die im 8-MHz-Modus dieser 
Karte läuft. Dieses OP/M bietet u.a. 


Apple und IBM 
kompatible Computer 


16K, Z80, Diskcontroler je . 
80 Zeichenkarte mit Softswitch 
2 Zeichensätze . Re 
Ile-kompatibles Motherboard 
ohne Firmware re 
Erphi-controler mit Autopatch 
TEAC FD-54A mit Apple-Bus 
TEAC FD-55B 2 x 40 Track . 
TEAC FD-55F 2 x 80 Track . 


FD4 Spezialcontroler für Laufwerke 


mit bis zu 2 x 80 Track 
OLYMPIA compact NP . 
Monochrome Monitore . 
Farbmonitore eu: 
Tastaturen für IBM und Apple . 
512K-RAM-Karte mit 256 K 
bestückt . 


Apple Super-Modem-Karte inkl. dt. 


Software und dt. Handbuch 


Versand nur per Nachnahme oder Vorkasse. 
Weiteres Zubehör für Apple und IBM gegen 


frankierten Rückumschlag. 


128K Karte (Saturn kompatibel) . 


Ulf Mohwinkel Electronic 
Berliner Straße 73 Pf: 250 166 
5090 Leverkusen Fettehenne 

Telefon 0214/93781 od. 95060 
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ab 375,- 
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schnelleren Disk-l/O, Ehring- und 
Erphi-Kompatibilität (bis 640K), in- 
tegrierte RAM-Disk und Unterstüt- 
zung anderer gängiger RAM-Kar- 
ten. Natürlich ist auf der Z80+ 
Card auch CP/M 3.0 einsetzbar, da 
die Z80OH-CPU insgesamt 120K 
RAM ansprechen kann. Preis DM 
696,- für Z80+ Card, Diskette und 
Aöseitiges Manual. 


. 75, 
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Redakteur 


Für unsere Zeitschrift Peeker suchen wir einen Redakteur, der 
dudenfest und verständlich schreiben kann. 

Solide Programmierkenntnisse sind unbedingt erforderlich. 

Es erwartet Sie eine abwechslungsvolle Tätigkeit in einem großen 


Ihre Bewerbung mit den üblichen Unterlagen richten Sie bitte an: 


Verlagsgruppe Dr. Alfred Hüthig 
Personalabteilung 
Postfach 102869 
6900 Heidelberg 
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Ama Schäpors 


ProDOS-Analyse 


Versionen 1.0.1, 102, 1.1.1 





Arne Schäpers 
ProDOS-Analyse 
Versionen 1.0.1, 1.0.2, 1.1.1 


1985, 470 S., kart., DM 68,- 
ISBN 3-7785-1134-3 


Hüthig Hr u 


Ulrich Stiehl 
Apple Assembler 


1984, 200 S., 3 Abb., kart, 
DM 34, — 
ISBN 3-7785-1047-9 


Weitere Titel und Informationen finden Sie in unserem Computerbuch-Katalog: 


Dr. Alfred Hüthig Verlag, Postfach 10 28 69, 6900 Heidelberg 1 














Arme Schäpers 
Bewegte 
Apple-Grafik 





DOS Toolkit-Erweiterungen 





Arne Schäpers 
Bewegte Apple-Grafik 


1985, 305 S., 6 Abb., kart., 
DM 58,— 
ISBN 3-7785-1150-5 
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Mit ausführlichen 


aigete le: laulagleteiksjerteilzi Tips 
Ulrich Stiehl und 
Tricks 


2. Auflage 


LUIFTELTE 7 


Ulrich Stiehl 
Apple DOS 3.3 
Tips und Tricks 


3., völlig überarb. Aufl. 1986 
X, 203 S., kart., 

DM 28,- 

ISBN 3-7785-1298-6 





Computerbucher 


diegehen, für Computer 
diekommen. 








Applesoft BASIC 


/ıps und 
Pticks 
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Frank Bühler 
Applesoft Basic 
Tips und Tricks 


1985, 241 S., 40 Abb,, kart., 
DM 38,— 
ISBN 3-7785-1094-0 


wi ie ara An 


Er Be Bee Ss Mi "er MEER Wr wow 


für Aufsteiger 


Mit ausführlichen 
Ulnch Stiel  Programmbeispielen 


2. Auflage 


Ulrich Stiehl 
ProDOS für Aufsteiger 
Band 1 


2., geänderte Auflage 1985, 
208 S., kart., DM 28,— 
ISBN 3-7785-1098-3 
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Apple-Assembler 
lernen 


Band 1: Einführung in die 
Assembler-Programmierung 
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Jürgen Kehrel 
Assembler lernen 


Band 1: Einführung in die 
Assembler-Programmierung 
des 6502 


1985, 235 S., kart., 
DM 38,- 
ISBN 3-7785-1151-3 
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für Aufsteiger 


Mit ausführlichen 
Ulrich Stiehl  Programmbeispielen 
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Uirich Stiehl 

ProDOS für Aufsteiger 
Band 2 

1985, 207 S., kart., DM 30,— 
ISBN 3-7785-1036-3 












MIEGA-COIRIE 


läßt keine Wünsche offen: 


® 10 Megabytes in Ihrem Apple 
® 4 Betriebssysteme im Zugriff 
® Superstarkes Netzteil mit Kühlung 


MEGA-CORE macht durch Einbau eines 10 MB 

















as blatlenlaufwerks Ihren Bars //e zu einemXT. MEGA-CORE ist ein Produkt von: 
MEGA-COR b steht aus! NEGA-CORE macht Ihren Apple FTRATNM Ri >R ; IN 
+ _ 77 3 Bi Li Fest platte L10'MB zum rofl ystem: s Efekir onik DIT 7 klun 1gs ambH N | 


- Harddiskeontrollet Fe ‚alner Slotkart el rät 8olehv ib | kl) REIF 

- 70 W Netzteil (12 Wt.Platte /S8W Apple) Alle Betriabssysteme glelt an au a U etsfan 3008-69. 

- Lüfter zur Kühlung des Rechners Platte bei extrem schnell h Telex: Vene fu6 d 

- Software zur Anpassung von vier Betriebs- - Die ganzen 10 MB sind frei konfigurierbar 1 
systemen, DOS, Ep /M, BASCAL u.ProDOS Die Harddiskcontroller-Spezialisten 

- Ausführliches deutsches Handbuch 





Seit 1. Januar 1986 können Sie MEGA-CORE auch mit 20 MB haben. 
Fragen Sie den Fachhandel oder uns nach Preisen und Bezugsquellen, oder holen Sie sich gegen 
Voreinsendung von DM 5,- eine Demo-Diskette. 


